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THE FIRST SIX 


TRICKY TUTORIALS,™, 


There are many things that the ATARI computers can do either better or easier than other small computers The following series 
of programs is designed tor anyone who is at least familiar with BASIC programming. What each tutorial offers Is similar to an 
extensive magazine article with all discussion in as simple language as is possible, plus you get MANY examples already typed in 
and running There is little overlap in what is taught, so each tutorial will further convince you that buying an ATARI was the right 
chotcel 


i*1 DISPLAY LISTS *4 BASICS OF ANIMATION 

This program teaches you how to alter the program in the 
ATARI that controls the format of the screen For example 
when you say graphics 8 the machine responds with a large 
graphics 8 area at the top ol the screen and a small text area 
at the bottom Now. you will be able to mix various modes on 
the screen at the same time Just think how nice your pro¬ 
grams could look with a mix of large and small text, and both 
high and low resolution graphics The program has received 
rave reviews for the way it does all the calculations of the dif¬ 
ficult things (like counting scan lines) You will guickly beable 
to use the subroutines included in your own programs 16k 
memory required for tape - 24k for disk 


#2 HORIZONTAL A VERTICAL SCROLLING 

The information you put on the screen, either graphics or 
text can be moved up. down or sideways This can make for 
some nice effects You could move only the text on the bot¬ 
tom half of the screen or perhaps create a map and then move 
smoothly over it by using the joystick Includes 18 examples 
with several using a small machine language subroutine for 
smoothness As always, our examples can easily be used in 
your own programs 16k tape-24k disk 


#3 PAGE FLIPPING 

Normally you have to redraw the screen every time you 
change the picture or text Now you can learn how to have the 
computer draw the next page you want to see while you are 
still looking at the previous page, then flip to it instantly You 
won't see it being drawn so a complicated picture can seem to 
just appear Depending on your memory size and how compli¬ 
cated the picture, you could flip between many pages, thus 
allowing animation or other special effects We have found 
that many people skip this tutorial either because it sounds 
hard, or they think they will never use it The basic method 
takes only 12 lines and the usefulness is infinite. 16k tape - 24k 
disk 


This program shows you how to animate simple shapes 
(with sound using the PRINT and PLOT commands, and also 
has a nice little PLAYER/MISSILE GRAPHICS game you can 
play with The P/M example is well commented and will get 
you started on this complicated subject (more fully explained 
In TT#5) This would bean excellent way to start making your 
programs come alive with movement! Recommended for be¬ 
ginning users 16k tape - 24k disk 


*5 PLAYER MISSILE GRAPHICS 

This Is the big one! We start by showing how to create a sim¬ 
ple shape called a player, then take you through over 25 exam¬ 
ples until you have created a complete business application 
and a small game Also, we include a utility to create the 
shapes and choose the colors, then store the players and mis¬ 
sies in data statements Later YOUR programs bring these 
shapes back in when needed. Plus much more! 32k tape or 
disk 


46 SOUNDS A MUSIC 

One of the famous programmers for our great machine of¬ 
fers this one through us. Unless you have sp>ent many hours 
experimenting with the four voice channels, you will learn alot 
from this one! The nicest part is the MANY examples of special 
sound effects that you can refer to when you need them for a 
program or to impress a friend 16k tape - 24k disk. 


Many other fine programs are available from: 
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Hi! First let us thank you for purchasing our programs. We want to 
start out by telling you a little about ourselves and our company. 
Santa Cruz Educational Software is the result of several local 
programmers who initially purchased the ATARI computer as a home 
machine around the time the 000 was first sold. At that time, and even 
today, we found a lack of information about how to use the power of 
the machine. As you have seen in a few of the better programs being 
sold, the ATARI can do more than any other computer in it’s price 
range, but how could we learn the many "tricks" that were contained 
withen the machine?? 

Well, our local club, although it had several HUNDRED members, 
ignored most of our questions. Fortunately other clubs across the 
country have some excell ant newsletters full of programs and facts. 
Also, ATARI<tm> has given we owners the Operating System and Hardware 
manuals. Finally, many magazine articles and several books have been 
published. 

All this is great for programmers, but what about the average 
owner who doesn’t understand much of what is said in the magazines? 
Even as a programmer, I have to spend many hours studying all of the 
information that is now available inorder to understand some of unique 
things about our machine. 

The story ends when I asked some local club members to submit 
their best programs for us to offer to others at the lowest possible 
price, ie. a price WE WOULD be glad to pay to buy these programs. I 
myself wrote most of the TRICKY TUTORIALS(tm) and the MASTER MEMORY 
MAP. Now, others across the country have offered programs for us to 
sell, all meeting the goal of: minimal on fancy artwork and a few 
spelling errors, but worth every penny. 

Write us with new ideas or memory locations to share, and if it’s 
something we can use, a reward will be sent back to you as soon as we 
can. Also, please remember that this is only a part time business. We 
are usually late in getting new programs out due to last minute 
debugging at midnite(no kidding, I do all this after my regular job). 
This doesn't mean we don’t care! 

My thanks to all of you who have raved about the Tutorials. I will 
try to keep a new one comming out every three months or less, and also 
to get out those bugs that remain. 


ROBIN ALAN SHERER (owner, programmer, and janitor) 



************** 


HOW TO LOAD 
************** 


TAPE, 


First, if you haven’t cleaned your tape recorder heads lately, 
please do so now. SEE ANY STEREO SHOP FOR THE RIGHT TOOLS. Place the 
tape with the label side up in your recorder. Make sure it is rewound 
and also reset the counter to 0. Push PLAY on the recorder. TYPE 
RUN"C:" AND PRESS RETURN. If this doesn’t work you might try CLOAD. We 
also include a backup program on the shorter programs we sell (not the 
TUTORIALS), and these sometimes require CLOAD. If the program won’t 
start to load, try positioning the tape forward or backward a little 
bit at a time. The easiest way would be to LISTEN to the "noise" on 
the tape with a regular tape recorder. When you find the steady tone 
that lasts for about 8 seconds, you have the beginning of each 
program. We recommend you write down the number on your recorders 
counter as each program starts. This will make it easier to find each 
part later on if needed. We occasionally get a bad tape from our 
supplier, so if yours won’t load on both your own 410 and a friends 
(or your DEALERS), call (408) 476-4901 for a replacement. 


Once the program starts, it will load in the remaining parts. The 
multiple parts are needed so that machines with only 16k can enjoy the 
TRICKY TUTORIALS. With more memory you can go beyond these simple 
tutorials. After each part, the computer will beep. This is your 
signal to press return to load in the next part. Some newer programs 
will start the next part without pressing return. Most programs will 
run themselves when done loading. 


The reason for several methods of running tapes is that as we 
improve the programs, we change the masters; however, the manuals are 
printed in large amounts, so changes are VERY hard to get into your 
manuals! 


************************************** 


DISK, 


To load Sc run the disk you first have to turn on the drive. When 
the busy light goes out place the disk in the drive. Now turn on the 
computer with the basic cartridge in place and the program will load 
each part and run by itself (aren’t disk drives nice!). 


ii 





) 


DISPLAY LISTS 


) 


Educational Software 


Display Lists consists of a set of 
programs that are simple to use, but 
deal with a complicated subject. Until 
now, only a few programmers have 
understood enough about modifying the 
ATARI'S Display Lists. Using the 
examples and manual inside, you have 
only to follow a few simple directions 
to create your own custom screens.These 
screens can consist of any of the 
ATARI'S regular Text and Graphics modes 
plus 5 new ones. Imagine up to 20 modes 
on the screen at once,...real special 
effects in all your programs! 

This program requires very little 
actual programming experience. It is 
especially designed to allow you to use 
it now, and go back and learn the actual 
method within the program at any time in 
the future. 

REQUIRES 16K TAPE OR 24K IF YOU HAVE 
DISK. 






TRICKY TUTORIAL #1 


DISPLAY I_ISTS 

by 

Rob In Sherer 


I NTRODUCT I OlN| 

Display List modification is a large and complex 
subject. If you have seen any of the articles recently 
published in the hobby magazines on the subject, you know 
you could never learn to modify your own custom Display 

Lists.or could you? What If we let the computer do most 

of the work? 


How ±1 o Load 


Place the tape in your recorder, label side up. Make 
sure the tape is rewound, and reset the counter to zero. 
Push PLAY on the recorder, type CLOAD and press RETURN. 
When the READY prompt appears, type RUN and press RETURN. 
If the program won't start to load, try positioning the tape 
forward or backwards a little. A little trick to find the 
beginning Is to first, turn your volume UP. Then POKE 
54018,52 to start the cassette motor. Listen to the "noise" 
on the tape. When you find the high-pitched, steady tone, 
you have the beginning of the program. We recommend you 
write down the number on your recorder's counter as each 
program starts, this will make it easier to find each part 
later on. POKE 54018,60 to turn the cassette motor off. 


To load and run the disk, first turn on your disk drive. 
When the busy light goes out, place the disk In the drive. 
Now turn on the computer, with the BASIC Cartridge In place 
and the program will load each part and run by itself. 


Any defective tapes or disks should be returned to: 

Educational Software 
4565 Cherryvale Ave. 

Soquel, CA. 95073 


© 1981 EDUCATIONAL SOFTWARE 
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SO YOU WANT TO LEARN ABOUT 
DISPLAY LISTS! 


To use this program you actually don't need to 
understand most of the Information we will talk about. Feel 
free to just run the examples and play with creating your 
own special screens. Later, when you want to understand more 
about what you are doing, come back and read the booklet and 
practice modlfing the examples. You can't hurt the machine 
by changing the numbers in the Display List. At the worst, 
the machine might "go to sleep" (the keyboard will not 
respond ) if a wrong number Is POKEd into memory. Then 
you'll have to press RESET or turn off the machine and 
reload in the program. This Is one reason tape users should 
always keep track of the number on their recorder's counter 
for each program so that they can easily reload a program. 

This Tutorial doesn't go to the other extreme of 
dificulty either. MANY details about DL's are not mentioned. 
The lesson is designed to explain all the basic's of the 
subject as well as offer examples already typed In for you! 
(I've got to keep those two recycled beer c a n s , Pr ot o t y pe & 
Mototype busy doing something!) If you don't practice 
modiflng the examples with your own ideas, DL'S probably 
won't make sense to you. 

NOTE - From this point on we are going to refer to 
Display Lists as DL so please don't get confused. 

What is a DL? 


Why did you buy this program? A surprising number of 
people buy my tutorials because they want to know how to use 
the special tricks that the ATARI can do, not really 
understanding what these tricks are. With this In mind, 
we'll start out this lesson by explaining some basics of 
what a Display List Is. EXAMPLE 9 shows one suggested use, 
but you can come up with you own unique Ideas! 

The ATARI has a special chip Inside It to take the 
Information from within its memory and put it on the screen. 
This chip Is called the ANTIC. This chip Is actually a 
microprocessor by itself and thus has a set of instructions 
to program it....just like the main microprocessor in the 
ATARI, the 6502. The difference Is we don't use BASIC or 
Assembly language to program it. Now stop and think a 
moment, I said TWO mIcroprocessors. This gives the machine 
much more capability than an Apple or Pet (go brag to your 
friends for a moment then come back.) 

The Display List is what the ANTIC looks at to tell the 
machine how to treat the screen (plus other things not 
mentioned In this lesson): 




The Display List Is what the ANTIC looks at to tell the 
machine how to treat the screen (plus other things not 
mentioned In this lesson): 

1) What Graphics and text modes to put on the screen. 

2) Where to get the data to put Into these mode 
areas. 

Now don't worry that the subject is too complex. There 
are only four types of Instructions, and these are POKEd 
Into memory using a few basic statements. Let's review - The 
DL says something to the computer that means: "Put on the 
screen some Graphic Mode 0, now some Mode 7, then some Mode 
0 again, and finally some Mode 2. Oh, by the way, get the 
data from this location in memory". 

We have to discuss the meaning of a few words before we 
can go on. You already have used Graphics Modes 0 to 8 as 
described in the BASIC Manual that came with the computer. 
If you look at Figure 1 you will see a chart showing 
something called O.S. Modes. The Display List Instructions 
allow the use of these Operating Systems Graphics Modes from 
2 to 15. Notice that Graphics Mode 0 Is O.S. Mode 2 and 
Graphics Mode 8 Is O.S. Mode 15. In the middle are some new 
modes you can use from BASIC that ATARI didn't mention in 
their BASIC book. Uses for these new modes will be mentioned 
later. So just remember when we say Graphic Mode we mean the 
one you normally use from BASIC and the 0.S . (Operat Ing 
System) Mode is the one you place In the Display List( 
through the use of our examples). 


O.S 

MODE 
for 
DL j 

Basic 

GR. 

mode 

# of Pixel 

1ines per 
mode 11ne 

# of 
Colors 

Bytes of 
Memory 
Used 

Per Line 

Text 

or 

Plot 

Mode 

Additional 

0 

- 

- 

- 

blank line 

In the DL: 


1 

- 

- 

- 

- 

Jump 

16=2 blank 

1 I nes 

2 

0 

8 

2 

40 

text 

32 = 3 " 

n 

3 

new 

1 0 

2 

40 

text 

48 = 4 " 

" 

4 

new 

8 

4 

40 

text 

68 = 5 " 

" 

5 

new 

16 

4 

40 

text 

80=6 

" 

6 

1 

8 

5 

20 

text 

96 = 7 

" 

7 

2 

1 6 

5 

20 

text 

112=8 " 

" 

8 

3 

8 

4 

10 

p 1 ot 

65=jump & wait 

9 

4 

4 

2 

10 

p 1 ot 



10 

5 

4 

4 

20 

p 1 ot 



1 i 

6 

2 

2 

20 

p 1 ot 



12 

new 

1 

2 

20 

p 1 ot 



13 

7 

2 

4 

40 

p 1 ot 



1 4 

new 

1 

4 

40 

p 1 ot 



1 5 

8 

1 

2 

40 

p 1 ot 




FIGURE 1 
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Here Is another idea to learn about. We are going to 
talk about both Mode Lines and Pixel Lines. To see a Pixel 
Line, simply look closely at the screen of your TV set. 
Those tiny dots you see are pixels, so a row of them across 
the screen Is called a Pixel Line. The Mode Lines are harder 
to understand. If you look at some regular Mode 0 text(small 
white letters with blue background) you can see that the 
letters are made up of eight rows of pixels (Including the 
space at the top and bottom). Now look at the chart for GR. 
mode 0. Under the value called "Pixel Lines per mode line". 
It says "8", meaning a character In GR.O takes 8 rows of 
pixels. You'll use this value later to help yourself In 
setting up the DL. To review (see Fig.1), a mode line of GR. 
8 takes only 1 row of pixels, and O.S. mode 5 (no equivalent 
GR. mode) takes 16 rows of Pixel Lines, thus, adding GR.5 to 
your DL fills up the screen 16 times faster than a GR. mode 
8 line (O.S. mode 15....look at the chart!). When you input 
a mode into the Display List In the examples, you must 
remember if you take out a mode line that is made up of many 
Pixel Lines, you should replace it with several Mode Lines 
that use less pixels per line. This will keep the total 
number of Pixel Lines drawn on the screen the same. The 
standard number of Pixel Lines drawn on the screen is 192. 
If you puT too few Pixel Lines on the screen, then the 
picture will "shrink" with just black on the bottom. 
Likewise, too many wil I place part of the picture off the 
screen and may cause the picture to "roll", which can NOT be 
stopped with the Vertical Hold controls on your TV. If you 


EXAMPLE 1 


If you haven't already, please RUN Example 1. This 
little program allows you to look at any of the standard GR. 
mode DL's, Including the new (to the United States) GTI A 
modes 9, 10, & 11. Let's try Inputting a 0. The numbers that 
result from the example are those of a standard smal I text 
screen. You read the numbers a row at a time. 


EXAMPLE OF 
GRAPHICS MODE 0 


1 1 2 
1 1 2 
1 1 2 


< -8 blank IInes 

< -8 blank lines 

< -8 blank lines 


66 <-LMS (Includes first line of screen; 

ie. 64(LMS) + 2(0.S. Mode) 


64 <-Low Byte\ 

combine to get location of Data 
for upper left corner of screen 

156 <-High Byte/ 


2 < 
2 < 
2 < 
2 < 


-0.S. mode 1i 

1 ne 

(same as 

GR, 

.0) 


-0.S. mode 1i 

i ne 





-0.S. mode 1i 

1 ne 





-(and all of 

the 

other 2 

1 s) 

0 . S. mode 1 

i ne 


65 <-Says end of Display List, go to the 

Display List at next location 


32 <—\ 

Comb Ine = Low Byte t High Byte * 256 

156 <---/ 


FIGURE 2 


The first three numbers are 112. Look at Figure 2. You'll 
see that "112" tells the computer to place 8 blank lines on 
the screen, starting at the top of your set. Three of these 
commands causes 24 blank lines at the top of the screen. 
This number of blank lines is standard. They allow for the 
difference in individual TV sets, called overscan, so that 
your whole picture can be seen. 
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The next number, "66", Is the LMS instruction. LMS means 
Load Memory Scan. LMS tells the computer to "Go find the 
data for the following modes starting at the address in 
memory in the next two numbers". We will always use for this 

number(LMS) the value of 64+the O.S. Mode number.this 

means for our GR.O DL we need 64+2, or 66. Remember that the 
chart gives GR.O = O.S. Mode 2. The next two numbers will be 
the location of the start of the data that is to be put on 
the screen. To find the value for your machine (if your 
interested) take the second number of the address(high 
byte), multiply it by 256 and add the first number (low 
byte). For example, if the high part of the number was 132 
and the low part was 192 then the start of the screen data 
would be at 256*132+192 which equals 33984. If you POKEd a 
number into this location that was the value of a letter, 
number, or Graphics character, you would see it appear at 
the upper left corner of your TV screen. In this example, 
POKE 33984,33, an "A" will appear. This is because a 33 in 
the screen data means "put an A on the screen at this 
location." 

NOTE ! 

I want to explain an important point about the "Screen 
Data". The information (data) that is put on the screen Is 
normally stored all in one place in memory, and in the same 
form. It is the type of mode line you write the data on that 
determines if it will be large or small text, or graphics 
pixels. Later some of our examples LIST the program to get 
data to "flow" through the area where the screen data is 
stored. Please look closely at the way the same information 
is INTERPRETED differently as it crosses through the 
different modes. This concept is IMPORTANT! 

Next in the DL come several # 2's. These numbers, we 
already mentioned, are the O.S. modes that you want. Since 
we are in GR.O, the DL needs 2's. For each of the 2's( 
including the one "hidden" in the LMS number before), the 
computer will put a GR. 0 mode line (8 pixels high!!) across 
the screen. Don't forget the mode line in the LMS 
instruction! 

Finally comes the number 65. Every DL we will do has 
one. The chart gives the meaning of the number 65 as "go 
back to the Display List at the following address and wait 
for the next time the screen is drawn". Don't worry about 
this except to include the 65 at the end of your DL. Leave 
whatever numbers come after this alone. You could actually 
flip to a completely new DL and it's data by just changing 
these numbers. 





WOW_ « _ THAT WAS A LOT ! 


Sure it was, but that's about it for the technical talk. 
Now we can have some fun! Input other numbers (0 to 11) intc 
Example 1. Notice that the DL gets longer as you use modes 
with less Pixel Lines per Mode Line; ie. for a mode like 7 
where a mode line is only 2 pixels high, the DL must have a 
lot of number 13 * s in it to fill up the screen. Input 8, 
then look in the middle of the DL. See the 79. There is 
already a 79 in the top of the DL for the LMS number. Recall 
that 79 =64+15(the O.S.mode for GR. 8), but why a second LMS 
number and a second set of addresses for the screen data? 
The reason is that the DL can only locate up to 4k (4096 
bytes) of data. Then it gets lost! The second LMS comes at 
the point where It ran out of data and says "Here's where to 
go find some more data to fill the remainder of screen". The 
second LMS is due to a hardware limit. You will have to make 
careful calculations to work with it, but only if you use a 
DL that requires more than 4k on screen data! 

1000 GRAPHICS 1?:? ##•&.?"“ EXAMPLE H“ B 

JL 0 J. 0 F O R W= X T O 2S8 S POK E 7 X 0 , M 

1820 FOR ZR = X TO . 1.0 :: NEXT ZR 

X0 30 IN E K T M 

.1. .1. & O G R A R H X C S O 

.1. X X 0 ID X M M y M C X 2 :* S t> X M A 5? C X J S e> X M M C 2 X 2 3 

XX. 12 FOR X = X TO 12SREAD X : NUMCIJ =K ! HEHT X 

X X X 4- ID’ ift T A 3 2 3 4- , 2 4,3 4 , S 4- , S 4,94,0 4 ,, X 7 0 282,2 0 2 

, 202 

X X 2 0 T R A P- 4 O O 0 0 : T R flP XX 2 O : 2 " “ US 11 ‘ POS X T X 0 IN X ,, S : 

2 "WHICH GRAPHICS MODE MOULD YOU EX IKE TO SEE 
THE DISPLAY EXST FOR"; 

X .1. 25 POKE 7 X O , O 
X. X 30 XINRUT MO B> E 

.1. X 4 O X F M O B> E > X X O R M ODE < 0 T H E IN lit 
XXSO G O TO X 220 

XX655 GRAPHICS 17:POKE 788,52 

XX 2 0 POSITION 1,5 i ? t*6; "MODES H TO UnP'S j ONLY":S 

O U IN ID 0 , X 2 0 8 8 S F O R W= X TO 588: IN E H "II 114 : S O LI MO O ,, 




1180 FOR W=X TO 580:HEKT Nl : GOTO XX20 

JL 2 2 0 USF”WUMt MO D E + X 3 

1232 GRAPHICS MO&E 

.JL 2: 3 4- IHION = PEEHC«55S'} S POKE 5 53 , G 
.1.2.4- O -J~ i 

1245 OL. = PEEIK 1 560} -«-2Se*PEEK (561J 
J. 2 S G M t ,J 3 = P E E IK 11!> t_ +• .J - JL 3 2 .J ~ ,J .1 

X2S2 XF J <USE + X. THEM X2»'G 

1254 GRAPHICS G : K = X : POKE 5&9,NOIN 

1260 POSITION 8,0!? “"OISPLAV 1..XST F OR MODE *«J 

HOOE : POSITION X, X : 2 “*--- 

X 2 7 G F O » J = 2 T O 2 2 

X 2 S G F O K X = X T O 4- G S T E P 4 

1230 POSITXON X , J S 2 M £K3 2 IK = K-*• X s XF K> U3E THEN 

13X0 

X 3 0 © N E K T X 2 H E K T -J 

13X0 POSITION 2,23 2 2 "MOULD YOHJ LIKE TO SEE A 
INI O T H E: R "j :i(jp U x A 'S' 

X 3 2 0 X F A £ - “ “ V " " T H E M X X 2 G 

X 3 3 G X F A $ =»" M “ “ T »i E N P O K E 7 6 4- „ X 2 2 R U M "D;E H 2 * * 

X 3 4. G GOT O X 2 O G 


EXAMPLE 2 (at last) 


If you are still in example 1 type In "n" and press 
RETURN. Example 2 is for you to practice changing a Display 
List. The numbers that come up In a data statement on the 
screen are there for you to edit using the cursor controls. 
Numbers can be added, changed, or deleted. When ready to see 
what the screen will look like with your new numbers, press 
RETURN. In case you don't understand what to do we have 
already changed some 2's to 4's, so just pressing RETURN 
will get a custom screen. Now you can see why ATARI didn't 
tell you about some of the special modes. Mode 4 is a 
multicolored text mode designed for use with character 
graphics, but It sure looks funny! It also is difficult to 
use, so these new modes wilI not be explained here. Try them 
on your own, or see ATARI publications. 

Play with this example awhile. Try different numbers In 
the list. Remember (I keep repeating myself), the numbers In 
the DL are the O.S. Mode numbers from 2 to 15. This Is 
designed as a simple example, so don't get frustrated that 
you have to keep starting over with the same list. Later 
examples will remember your changes and have more room In 
the DATA statements for numbers. ANYTIME YOU WANT TO CHECK 
THE MODES YOU HAVE PLACED ON THE SCREEN, THE EASIEST WAY TO 
DO IT IS TO BREAK THE PROGRAM AND TYPE LIST. THE LISTING 
WILL FLOW ACROSS THE MODES SHOWING YOU WHERE TEXT AND 
GRAPHICS ARE. 




2 GRflP H X C 3 A 7* ; 2 «6;" E W A M P l_ IE E3 

3 F O R W= A T O 2 3 8:POK E 7 A O , M 

4. FOR ZR = i TO AO S HEHT ZR 

!S NEK T M 

7 G R A IP H A C 3 OSD- X M Z K S' C A 3 S S 

A O' DL = PEEK £5683 +2S6*PEEIK £56A) 

AS ft = PEEK COL+4-3 : B = PEEK CDIL. +5J 

■2. O G R A P H X C 3 0 S 7 a " T H X 3 E KAMP L E A It- A. O W 3 V O U T O C 
HAMGE A MODE & DISPLAY LIST S «« 

3 0 2 ‘"PRES 3 gQEESa TO BEGIN" 

S S D A T A A ..It. 2 , A A 2 , A A 2 , © 6 , © 4 , A S 6 , 2 2,2 , 2,2 , 2,2,2 

* 2 * * ' * * ' * ' * •- 2 '2 - 2 - 2,2,2,2,2,2,65,3 2 , A S 6 & , O , 

O , O 

62 POKE S32 7 3, & 

65 Z=PEEKC53279) 

7 0 I F Z = S T H E M A 0 0 
» 0 G O T O 6 S 

.1. €3i 0 TRAP 4 0 0 0 0 s 2 “" #•$ “ “ ; P O S X F X O W 2 S 

A 0 S 7 “*SS D A T A A A2 „ A A 2 , A A 2 , S © „ >“ js A ? «• , “» $ B ? «“ , 2 , 2 

,, 2,2,2,2,2,2,2,4,4,4,4,4,2,2,2,2,2,2,2,2,2 , © S 
, 3 2 , A 5 6,0,0,0,0 “ 11 

AAO POSITION 2, AS 5 7 "CHANGE THE VALUES YOU Wfl 

HT BY USING F HE.' CURSOR CONTROLS-THEN PRESS 

IMMIED3I] TO SEE HEW '".1! 

A. A 5 7 «• 3 C R E E M “ a 

A 2 O P O 3 X T X' O Wl 0 , A 

A 2 S X M P U T Z K $ 

.1. 3 0 P O 3 X 'F X O H 0 , S 

A40 POKE 342 ,, A3 

A 4- 2 P O 3 X T X O M 2 , A 2 5 2 * “ C O IMI F “ “ 

A. 4- 4- P O 3 X T X O W 0,3 s 3 T O P 

A S O P O K E 0 4. 2 , A 2 

2 O O R E 3 T O R E S S 

2 A. O X - 0 

2 A. S T R A P .1. 0 0 

2 2 0 R E A D G : P O K E D L + X , G S X X + A s X IF G 0 T H E INI 2 3 S 

2 3 0 G O 'F O 2 2 0 

235 FOR W“ A. TO 3 00 : NEK F WiLI'ST 

2 4.0 7 '"PRESS TO GO ON":-? ““PRESS ESXaISD 

TO DO ANOTHER SCREEN" 

2 4- S T R A P A 0 0 
2SO POKE 53270„© 

2 © 0 Z = P E E K C S 3 2 7 3 A 

2 7 0 X F Z = © T H E INI 5 7 

2 a 0 X IF' Z = 3 T H E M R ill Mi * « D s E K 3 " » 

3OO GOTO 2S 0 

EXAMPLE 3 


This Is a small subroutine for you to use in your own 
programs. The numbers for the DATA statement (the DL) can 
come from EX. 2 (or better yet EX. 10). Some of the lines in 
this example we added to make this Tutorial flow smoothly, 
so after you copy the example, delete all but the call to 
the subroutine in line 700 plus the subroutine itself, lines 
10000-10040 . Here's how the routine works: 




10010 DL=PEEK(560)+256*PEEK(561) 


Line 10010 - pu+s together the two parts of the address 
stored In 560 & 561. These two locations combine to give you 
the start of the Display List. Since this varies, you have 
to look at these locations each time you do a Graphics call, 
like GR. 0 or GR. 7. The Graphics call will automatically 
set up a DL and screen data area within memory. 

I'm confused! 

Right! We need another chart (next page. Figure 3). On 
this chart are every standard Display List. Look at the 
first one, for Graphics 0. The Display List starts about Ik 
from the top of memory with the DL itself. Then, moving up 
in memory comes the 960 bytes of data that the screen needs. 
Example 2 calls GR. 0, then looks at 560 & 561 and changes 
the DL. The 960 bytes of screen data is enough for the 
modifications you can make with the small DATA statement we 
have given you so far. Later, when we give you four DATA 
statements you may want to start with a Graphics Mode that 
gives you more room like 5,7,even 8. The key is to use only 
as much of memory as you need. The real way to calculate 
what mode to start with is to add up how many lines of each 
mode you are using, multiply each of these by the number of 
bytes per mode line from FIG.1 , and get a total for them 
all. For examp Ie: 

13 I ines of GR. 8 * 40 bytes per I ine 
+ 8 I ines of GR. 2 * 20 bytes per I Ine 
+ 25 GR. 7 Iines * 40 bytes per Iine 


equals:1680 bytes needed for DATA 

and:191 pixel lines usedCclose enough to 192!) 



If you allow another 70 or so bytes for the DL itself, you 
get a minimum of 1750 bytes needed for your custom DL. By 
calling a standard GR. 6 (see chart), 2048 bytes would be 
set up which is enough. At this point (after the call), you 
would look at 560 & 561 to get the address of the start of 
the DL. By the way, the estimate of 70 additional bytes for 
the DL comes from adding up the number of mode lines you are 
going to call (46 in above example), plus some extras for 
the blank lines, the LMS bytes, and the 65 & address at the 
end of every DL. 

Let's finish this example and then explain the chart. 

10011 Z1=PEEK(DL+4):Z2=PEEK(DLt5) 

Line 10011 - saves the location where the screen's data 
starts, which always comes at the 5th and 6th value into the 
DL(r I g ht after the LMS). 

10012 1=1 

10013 READ A:IF A=0 THEN 10040 

10014 POKE (DL+I-1 ), A 

10015 IF 1=5 THEN POKE DL+4,Z1 

10016 IF 1=6 THEN POKE DLt5,Z2 
10020 1=1+1:GOTO 10013 

10030 DATA 112,112,112,66,64,156,2,2,2,5,5,5,5,2,2, 
4,4,4,4,4,65,32,124,0,0,0 

Lines 10012 to 10030 - We now set a counter, and read a 
value; if it = 0 we're all done; if not, we POKE it Into the 
first location in the DL(thus changing the DL if the number 
Is different). We then test for the 5th and 6th value, and 
if we just POKEd in these values from the DATA statement, we 
POKE in another value from line 10011. This is because these 
two numbers depend on your memory size, so the numbers in 
the data statement are dummys waiting for these correct 
numbers to be PEEKed from the DL and then POKEd right back 
in again(sure it could be done other ways....this Is my 
way). This simple loop continues until the program reads in 
a 0 from the DATA statement then stops. Notice whenever you 
change a DL this way it changes down the screen just like a 
curtain f a I I ing. Neat! 




















BACK TO THAT BIO CHART AGAIN 


It isn't necessary for you to understand Figure 3, so 
feel free to skip this section. Just pick one of the 
Graphics Modes you are used to using and look at it on the 
chart. Lets pick GR.4 (O.S. mode 9). Starting down from the 
top of memory about 600 bytes, we see the DL uses 54 bytes 
of memory. Next comes the screen data of 400 bytes, then 
some empty (unused) memory locations. Finally, 160 bytes of 
data for the text window. The other Graphics Modes work the 
same way. 

The text window is a slight complication to the DL 
after the sequence of 112's, the LMS bytes, and the various 
O.S. Mode numbers, as discussed above, YOU WOULD FIND 
ANOTHER LMS! And following that will come more mode line 
instructions (text of course), and now finally comes the 65 
address to end the DL. The extra LMS just says to: "Go get 
some data from another location In memory than the one the 
computer is at, and then place that data In some text mode 
Iines(usua I Iy 4 lines of GR.0), all at the bottom of the 
screen. 


.1. 0i G R A IP H X C S X 2 : -? **6 S "" E K A HP l_ E 0“« 

2 0 F O R M = JL T O 2 S & S IP O K E 2 JL 0 M 

S0 FOR ZH=1 TO JLO ; MEKT ZR 
•* O W E K T W 

S 0 O R E M T H X S X S A S U #3 R OIUIT X H E F O R V O lli T O Hi 5 E X 

If* V O y R O W N PROGR A M S S EE H A H U AIL F O R i!» X R EOT X O INI 

2© O GOSUO XO000 

710 REM RUT THE REST OF YOUR PROGRAM STARTING 
ON THIS EXME 

715 FOR W— X TO 2000 s NEHT M 

2 2 O G R A R HI IC S O S ? “» T H .X 3 E K A M R L E X S F O R V O U T O 

USE IN YOUR PROGRAMS.":? "“PRESS BREAK AMD 5AV 

E X T X r YOU M A Wi T OR" ; 









NOW FOR AN ADVERTISEMENT 


All these PEEK and POKE locations are summerlzed in my 
MASTER MEMORY MAP. FORK OVER THE $6.95 and order one today! 


I hate ads too, but....News flash!!! The ATARI Isn't as 
slow as some reviewers have stated !n bench tests. The ATARI 
ANTIC chip that we have been programming steals time from 
the main 6502 processor. The bigger the DL and the more data 
It has to pu+ on the screen, the more time It steals. This 
means that if a reviewer tested the machine In GR.O It will 
run calculations slower than If In GR.2 or 3 which have 
smaller DL's. In fact, if you want you can customize a DL to 
have only blank lines with one small message In the middle 
of the screen that says "Walt a Moment", this will allow the 
machine to run almost as fast as It can go. In case you want 
to know the difference; In GR.8 the machine Is up to 40 % 
slower than GR.2I 


-15- 








EXAMPLE 4 8c 5 


Ok students, time for fun. Run example 4. All of this DL 
stuff may not seem too practical, so the next two examples 
are to give you some ideas. By simply setting up a GR.1 
(large letters) DL, but in the middle doing a second LMS 
(70,96,127 in the data but the last two numbers are rePOKEd 
in lines 10023-10024 depending on your memory), we tell the 
DL that once it gets about halfway down the screen. It 
should get its data from the same place as the top of the 
screen did! There are few restrictions on what you can do 
with the LMS byte. It doesn't have to wait to be used only 
at the beginning of the DL and at 4K boundaries. 

Example 5 is the same thing, but with only one copy of 
what you type in. Both of these could be used for games, but 
a more useful idea might be to allow programming in big 
letters for the hard of seeing or kids to use. 



HAVE I LOST YOUV 


You should still be in example 4. The program says READY 
in double letters. Since the program has stopped, you can do 
what you like. Try a simple line like "Hello, I use BIG 

letters". The computer will now work like it was in GR.0. 
Why? Look at line 720 in EX.4—720 POKE 87,0:END. The POKE 
to location 87 fools the computer. We just (in the 

subroutine) set up the DL like a GR.1 screen, but the 

computer looks to location 87 to see what mode it is in, so 
by POKEing in 0 (the Graphics Mode goes here, not the O.S. 
mode used in the DL), it thinks it can write listings as 

though it were in GR.0. 

1-& GRAPHICS 17:? B6 ;; EXAMPLE Cl" 

:Z ® FOR W=A FO 230:POKE 710 . H 
3f. & F O R SSL R = A T O A O : Ml IE X T U 
4 O M E K T M 

4 S' O R IE M *M*-*€^MH*fr**■ »€ ■» € ■ « ■ 
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A PRACTICAL EHAMPLE OF WHAT VO 
DISPLAY LIST THAT TO MODIFIED 

WHEH YOU WANT T 

H... E T T E RO A N 8> IN DU P 


S 0 0 R IE M H E R E X S 

U CAN S>0 WITH A 

510 REM JUST SAY GOTO 7© 0 

O S E E YOUR PRO G R A M .X IN! B X G 
LXCATE 5 5 
520 REM 
TOO GOSUB 1008 O 

710 REM YOUR BAS X C PHOGH A M G O E S H 

7 2 O R OKE & 7 , & S E N «> 

X 0000 R E M T R A P J. O O 4 O 2 G « A P III X C S X 

10005 GRAPHICS X 

DL = PEEK C568) 'T 2 56*PE E K (56X3 

Z X = P E E K £ #> L T 4. X S Z 2 = P E E K C S> L. + S 3 


X 0 0 X O 
X 0 0 X s 
X. 0 0X6 
X 0 0X7" 

X. 0 0 2 0 
X. 0 © 2 X 
X0 0 2 2 X F 
.1. 0 O 2 3 X F 
X0 0 2 4 X F 
X. ©026 


REAR A 2 XF A = 0 THEN 10040 

P 0 IK E £ B> L + X - X X , A 

XF X = 5 THEN POKE DL + 4,1.1.3 2 

XF X—6 THEN POKE DL+5,Z2+2 

= X 6 T H E N P OKE ll> L + X S , Z X.3 2 

r- X 7 X" H E N P O K E 8> L + X 6 , r Z 2 + 2 

:X + X 2 GOTO 100X7 
X 0 0 3 0 8> A T A X. X 2,112 # X X 2 ,, 7 0 , S 6 X 2 7 , (» , 6,6,6,6 

6,6 7 O S 6 , X. 2 7 © , © ,©,©,© , © , © , © , © , © © S> 4- , X 2 5 , 

X. © 0 4 0 R E T U R H 


Example 5 is almost the same, except instead of the POKE 
87, we start with a GR.O mode. This Internally changes 87 to 
0 (try a PEEK(87) if you don't believe me). Sometimes one 
method is more desirable than the other. You pick one. The 
other difference is that there Is no second LMS in the 
middle of the DL. The writing in these two examples is 
large, but the computer still thinks It Is In mode 0 so It 
trys to fit in the normal 40x24 letters. For this reason, 
you won't see the text in the way that you expect. Try a 
LIST command. STRANGE! 

NOTE - To get to example 5 & 6 you have to either type in 
RUN"D:EX5" OR RUN"C:'\ whichever is appropiate. The same for 
EX.6. This is because we stopped EX.4 & EX.5 for you to try 
ou t. 


X 0 G R A P «•« X C S X 7 S 2 «© J * “ E H A HP l_ E S«« 

2 F O IR W= X T O 2 3 0 S P O K E 7 X 0 , W 

3 0 FOR ZR = 1 TO 18 S NEWT ZR 

4. © NEM T W 

S00 REM THIS IS A SUBROUTINE TO ALLOW YOU TO 
PROGRAM WITH BIG LETTERS.SEE MANUAL FOR DIRE 
C T X O N S . 

7 O O G R A P HI X C 5 0 S G O S 111 B X 0 0 0 0 

7 X O R E IM P U T T H E R E S T O F V O U R P R O G R A M STAR* X N 

G O N T H X S II... X N E 
7 2: 0 «... X S T 2 E H f> 

X. © 0 0 0 T R A P X. 0 0 4 0 

.III. O O X. O 8> L = P E IE K £ S © 0 X -*• 2 S ©«P E E K £ © © X X 

X. O 43i X. X Z X. --- P E E K £ t> IL 4 X 2 Z 2 = P E E K £ £> IL. + © X 
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.jL.0t0* JL2 I = JL 

.1. 0i 0t JL 3 Ifl E A 1> A ! X IP A 0 T H EM 10 0 4- 0 

JL0A1. 4- POKE t B>i_ +• X — .1 .'3' .<■ A 

10815 IF 1=5 THEM POKE DL+4.Z1+70 

. 1 . 0i 0 JL 6 X F X = © T H E M IP O IK E l!> L + 5 , Z 2 + 2 

j_0o2 :0 l = I + l: ©OTO 1.0013 

.1.0 0 3 0 S> A T A JL .12 , .1 12,1 1 2 ., 7 0,7 4 , JL 5 0,6,6,6,5 * 6 , © 
& P © © ,©,© 4 . 6,6,6 , © , © © ,6,65,3 2 , .12 4- , & ., 0,0 

.1.0 0 4.0 ' RETURN 


EXAMPLE <£» 


This example Is like EX.2, except that it remembers your 
current DL. This way you can slowly change the DL until you 
like it. Then copy the numbers and use them in EX.3 in your 
own programs. After you create a screen, if you want to 
BREAK the program just type LIST. This will flow the 
programs dafa over the DL you just created to better see 
each region. To restart the program, just type RUN. Other 
commands are: press OPTION to go to EX.7; press START to do 
another screen using the current DL numbers; press SELECT to 
get back to the original numbers in case your custom screen 
goes crazy, or you get lost In what you're doing. 


GRAPHICS MODE LINES AND PIXEL LINES 

1 —> 

2 —> 


PIXEL LINE 

GR.7(0.S. MODE 13) 


4— > 


GR.4(0.S. MODE 9) 


(Up to 16 Pixels per Mode Line in O.S. Modes 5 & 7 (=GR.2)) 
FIGURE 4 
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GOING CRAZY? 


Yes, remember we said before that if you put in enouah 

, +h ; ? L s° that to ° plxe/l.nSs are up 

the.TV will start to roll. This is simply because you are 
rnnrl n ? I" ~ +he ° L + ° " Draw on +he screen more than you have 
scrppn° r +h Co ? v ® rse| y» If you put too few lines on the 

moSes o^ thp 0 ^ 6 "I" Simp ' y chan 9 e +he amount of 
which ncp f yP e °f mode(ie., change several modes like 2 
which use 8 lines of pixels per mode line of 2(GR.O), to 

9(GR 4 Mn 7° d M USe ° nly 4 p,xel rows P er mode 
9(GR.4) line). Now,if this mode line vs. pixel line stuff 

has got you lost, we are going to have one more figure 
(figure 4).This one shows clearly (we hope) the difference 
between the two. 


.1. GRAPHICS A. 7 : 7 **&;■* EKAMPLE 03““ 

3 FOR M=A TO 730SPOKE 710,M 

4- FOR ZR-i TO iOiNEKT Z'lft 

5 NEXT 84 

7 8> I M Z. X $ £13 S' 'i 

2 0 GRAPHICS OS'? "THIS EKAMIPLE ALLOWS YOU TO C 

IHIAMGE A MODE O DISPLAY LIST!" 

3 0 ? ““PRESS Hi-iaOi TO BEGIN" : ? "‘WHITE DOWN THE 

MU MB E R S X N T H E EOS 84 H E Wl VO 8.8 L_ X K E X T » «« 

S S DATA X 12,112,112 , «S 6 , 0 B , .t. 4 4 , 2 .,2,2,2,2,2,2 , 2 
,2,4,4,4,4,4,2,2,2,2,2,2,2,2,2,65, 3 2, A56, O 
SO DAT A O, O, O, ©, 0,0,0,0,0,0,0,0, ©, O , O, 0, O, O, © 

, O , O , O , O , © , O , O , O ,0,0,0,0,65,32 , £56 , 0 
57 DA T A 0 , O , 0,0,0,0,0,0,0,0,0,0,0,0,0,0 „ 0 r 0 r 0 
,O,0,0,0,0,0,0,O,0,0,0,0,0s,32,156,0 
SB DA T A O , 0,0,0,0,0,0,0 , O , 0,0,0,0 , 0 , O , 0,0,0,0 
, 0,0,0,0,0,0,0,0,0,0,0,0,65,32. , 156,0 
62 POKE 53279,8 
65 Z=PEEK£532791 
70 IF Z=6 THEM 100 
80 GOTO 65 

.1. OB G R A P HIC S O : P O S I TI ON 2,3 
.1.. 85 LIST 55,58 

11.8 POSIT I ON 2,18:? "CHANGE T HE VALUES V O LB 84 A 
NT BY USING THE CURSOR CONTROLS ““ 

A.20 POSITION X 0,0 
125 INPUT ZKS 
1.30 POSITION 0,2 



X .*01 POKE: © 42 , X 3 

X42 POSITION 2,17S? "CONT" 

.144. POSITION 0,2! STOP 

.1.. 5 0 POKE 842,12 

2 0 0 R ES T O R E 55 

2XO 1=0 

2X5 TRAP 400 

2X7' I = X ! GRAPHICS 7 + 16 

2X0 DL = PEEK (560) +256KPEEK (561) 

2X0 A=PEEKCDL+4)SB=PEEK(0L+5) 

220 READ G SIF 0 = 0 THEM 233 
2 2 X P O K E t> L + I - X , G 
222 IF 1 = 5 THEM POKE L>8_ + 4,A 

2 23 IF I = S THEM POKE DL + 5, B 

2 3 O I = I X ! G O T O 2 2 O 

2 3 3: F O R M= X T O SOO : ME H IT W:POKE 02 , O 

2 4 . o p o s i t i o m 2,1:? “"press irnwiiriOTri r a 

"“press iJOEEIui t o oo another screem n » 

2 4.3 2 ""PRESS 011111 FOR THE ORIGINAL 

.1 SV‘ 

2 4.5 T R A P 5 

:S: s; 0 P O K E 5 3 2 7 3 , © 

20O Z=PEEK(5327S) 

2© 5 IF Z = 5 T HEM 4 0 0 
2 7'O IF 2 = © TH E W 57 

2 © O IF Z = 3 T H E M P O K E 7' © 4- , X 2 ! « H H " “ il> s E i 

3 OO GOTO 20O 

4 O0 T R A P 4O0 s G R A P HIC 5 O i P O SI TI OIN 2,4- 

"*■ 01 S' ? “ * 5 5 DAT A X X 2 , X .1. 2 , .1 X 2 , 0 0 , "" j A .3 •" , * 

, 2,2 2 ,2,2, 2 „ 2, 4 , 4 , 4 , 4 ,4 , 2,2,2 2,2.2 

,32,156,0" 


GO ON"S 2 

fi> IS P1. A V 


J B j , 2 , i 
,2,2,2,05 


4 O 0 
0 , 0 . 
4 O 7 
8,0 
4 0© 
O , O 
4 . X. 0 


2 " * 5 0 B> A T A O , O , O , O , 0 , o , © , © , © „ © 

O, 0 , O, O , O , O , 0 „ 0 , ©„ © # 0,0, ©, ©, 65( 

-:?■ ““57 DATA 0,0,©, 0,0 „ © „ © „ © . © _ #J " 

O , O , O , © , © , 0,0, O , 10 , © , © , © ,0,0, eg' 
2. ““5© OAT A O , O , © , © , © ,©,©„© „ © lB " 

O , O , 0 , O , O , 0 , O , O , © , © , © # © # & & ' B " 

GOTO XXO 


0 , O , O , O , O , 
. 32,156, ©“« 
0 , 0 , 0 , 0 , 0 , 
32 , X 5 0i , © *» 

® * O , O , © , © r 
r -3C 2 , X SO, © 11 ■ 


EXAMPLE 7 


This one Is for you to figure out. Some clues: When the 
"HELLO'S" stop, look at all the modes on the screen. Notice 
towards the bottom, the mode eight area (obvious by the red 
and blue pixels). Since the computer displays the data 
according to whatever data Is next "in line", the statements 
about press OPTION, START, or SELECT end up In this mode 8 
area (even though you can't see the statements, you can 
still use them). Then we hit a 4k boundary, so a LMS 
instruction was used but to make It interesting, we used the 
same address as the top of the data. Look at the Display 
List for GR.8 using EX.1. See the 79 (LMS) Instruction in 
the middle. 



2 GRAPHICS ,1.7 s? $*© ; »" E K A IMP 1 8_ E H* a 
41. FOR M-A TO 23B: POKE 710,W 

5 FOR ZK = .1. T O .1. QlNEK T Z R 


6. Wl E M T M 
7 l>X M ZK$ C135) 

AO TRAP 40000:TRAP AO 

2: O GRAPHICS Os? "" T SI A S EHAIM R 1_ E A LLOWS V O 81 T O C 

HAMGE A MORE © DISPLAY LIST « 

3 : O ? "" P R E S IS ifllisllli T O 85 E G A INI “" 3 ? " “ IWR X TE B> O B4INI T III F 

MO FIBER'S AIM THE Qill WHEN YOU LAKE IT!" 

41.0 POKE 7 A O , O 

S S DATA A A 7 , A A 7 , A A 7,86, 0 © ,144 , 7 7 , 7,7,6,6,7,7 

, A 4 , A 4- „ A 4,14,14, A 4 , A 4- ,2,2, AS, AS 

55 6 8> A I" A A S A 5,15,1 55 , A 55,7 0 , 96 , A 4 4,15 , O K 7 , 7 , 7 ,, t» 

S ■" 3 :Z •<- * * 6 ,, 0 , 0 , O , O , 0,0,9, O 101 , O , O , ©,©„©,©, O ,0,6 g 

i32,A56,0 

5 7 !> A T A O , O 0,0,0,0 , O , 0 , O , © , 0,0,0,0,0,0,0, O , © 

,0,0,0, 0 , 0 ,0,0, 0,0 , © , © „ 0 „ 0 5 J( 32 , A 55 © , 0i 

S © B> A T A © , © , 0,0 , © , 0,0,0,0 , © , 0,0 , © ,0,0,0 , © , © , 0 

, 0 , O , O , 0 , 0,0 , © , 0 , © r 0 ,, 0 0 r 0 g Jf 3 2 ; # jj_ g g f g 

© 7 P O IK E 55 3 7 7 0 , B 
©5 Z=PEEK(532791 
7 © A F Z = © THEM A El 0 
0© GOTO © © 

AO© ? s POSIT ION 7,3 

A © © L A S T 55,55 0 

J.. A © POSITION 2 , A0 S ? “ “ C H ANGE T H IE U> A L 111 E S V O 81 84A 

M T B V O S A Wl G T H E CURS © R C O M T ROES “« 

A A 51 ? "SCREEN . “ * 

A 2 0 P O S A T A O IK A © , © 

A75 X MP U T ZKS 


A 3© POS A T A O Wl © , 2 
A4© POKE 042, A 3 

A 4 2 POSIT A OH 2 , A 7 3 ? “"COM T““ 

A. 4. 4 P © S A T A O M © , 2 3 S T O P 

A5© POKE ©42,A2 
2 © © R E S T O R E 55 5 
2 A © A = El 
2 A 5 T R A P 4 El © 

2 A 7 A := A 3 G R A P H A C S 7 #- A © 3 P O K E 7 A © , El 

2 A 0 8> IL. = P E E K *: 5 © © J +25 ©**P E E K 15 © A 1 

2 A 0 A := PEEK COE + 4» 3 B PEEK C ll>IL. + 51 
2 2 © R IE A 8> G S X F G = © T H EM 2 3 3 

2 2 A P O K E H> L + A -- A , G 

2 2 2 A F A = 5 T II I E IK P O K E U> IL + 4 , A 

22 3 A IE A = © THEM POKE OL + 5,B 

2 3 © A - A + A 3 G O T 81 2 2 © 

2 3 3 F O R 84= A T O 0 © © 3 IM IE K T M 3 P O K E 8 7,0:1. A S T 3 G 81S 

U B 5 © O 0 

24.0 ? "PRESS CiraOOtllll TO GO ON" : ? "PRESS HSMIIH 

T O ll> 81 A IM O T H 8 R Sc El' ELM” " 

2 4 3 ? "PRESS amid FOR THE ORIGINAL DISPLAY 

LIST" 
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4 <a © 


2 0 0 .X F Z = 3 T HEN P 0 K E 2 0 4- A 2 X R ILI W " “ *> 

300 GO T0 2 00 

.ill. 4J e t Ift A P 4- © 0 0 0 5 G R A P H X 0 S 0 : P ® 0 X T X 0 N 

4 0 S 2 “‘55 ll> A T A .1 X 2 , A A 2 , A A 2 0 0 , "" i A ; 

, 2 „ 2 „ © 6,7,2 # A. 4- - A 4- I. 4 , A 4- „ A 4- , A 4 # A 4 , 

4 0 <5. 2 "56 8> A T A 15, A S „ A 5 „ A S „ A 5 , 2 '3> , S> 

7 7,2 „ 0 0,3 2 „ A 00,0 .„ 0 , 0 , & , 0 0,0,0 ... 0 iM 

4 0 2 2 “ “ 0 2 «> A T A 0,0,0 0,0,0,0,0,0,0 

tf| ’ 0 „ 0 , 0,0 „ 0,0,0 , 0,0 , e , 0 0,0,0 ... 0 6. S 

40 0 2 "‘58 H> A T A 0,0,0,0,0» « /0* 0 » ®'« 

0 „ 0 , 0 0 „ 0,0 „ 0 „ 0 „ 00 0,0 ... 0 , © ... 0 r 0 , 0 S 

4. A 0 G O T 0 A A 0 

5 0 0 0 ■ J = 0 a A : 2 “ 11 HI E EIL. O “ “ : X F -J < 0 0 T H E N 

K A t 0 RE T O R M 




EXAMPLE £3 


Get your wife, husband, kids, or friends. You are about 
prove what home computers are good for. Remember that the 
numbers (two numbers after the LMS value) tell the 
puter where to get the screen data. Well, this example 
f uses the joystick to change this address so you can see 

t of the memory in your machine In both graphics and 

t, some of it changing before your eyes. Moving the 
stick forward will move up to the top of memory(remember 
were almost at the top to start). Moving down will go 

ost to the beginning of memory. If we were to look at the 

y bottom we would crash(stop) the computer because we 

Id interfere with th.e O.S. OK.It wasn't that 

at....send them all back. Press OPTION to ao on. 











“IT WH! -*5. ~I~ '"=5- HE* ~MZ «.» «. BEF HI - ' HT IEF IPH* "S- 

CT SMS "W WC5 58...... ISC BNB SET. H5- 

O BRfc BHB HRfc HE BE: 


! F lift C T lift IN O T H E R T H R El E 

R Cl W 5 OF EM 

ifli Wt '!> OIF COURSE SOME TINY TEXT.PRESS 

•: QIMlIIIi T O G O O H 

EXAMPLE 9 

A PRACTICAL EXAMPLE 

Finally an actual example where we PLOT and PRINT stuff. 
Now the problem with custom DL's is not choosing the numbers 
as you have already seen. That was easy. But now we have got 
to get the PLOT or PRINT statements to work with the new 
screen we have setup. When we start out a custom DL with a 
POKE 87,GR.mode # or a Graphics statement like GR.O, the 
O.S. thinks that It is in that mode, not the one on the 
screen. If the areas we are plotting or writing to are 
within the normal limits, then we can just experiment to 
find what mode line we want to PLOT/PRINT to. That Is what 
this example does. It's hit or miss, but It works. Plot 
something and if it's not where you want change the PLOT 
statement. Same with text, using the POSITION statement. 
There is nothing wrong with the "hit and miss' 1 method, but 
our next example will give you the precise numbers to 
accurately place yo.ur information on the screen. 



10 GRAPHICS ±7;? »6J" EH AMPLE H*« 

2 0 F OR W = JL T O 2 3 O 5 POKE 7 JL 0 , M 

3© FOR ZR = JL TO JL O s NEXT ZR 

4. O IMi E K T Mi 

5O0 REM THIS IS A SLB 13 ROUT 1N£ FOR YOU TO U 5E I 
ini V 018R OMN PR O G R A MS. SEE MAM IIA L FO R DIRE C T JL OH 


SOS GRAP HICS O 
55 Jl. 0 GOSUB JL O 0 O 0 

® JL 5 P O K E & 7 , JL s P O SITI O H 0 , O s ? **6 ; *«T HI 5 IS 0 1 G 

!5 2 0 « e i "OH T WO L I Wl E S " ■ s ? «6;" O R s H REE" 

S fji' 0 POKE 87 j, 4 • COLOR JL :: PLOT JL ,, S s OR A WTO It i s “ r»» 

A WT O 6 O , JL S 8 P L O T . 1 . S , I S 8 D R A WT O JL k ll ”P £ o' T ' 3 i S 

fORAMTO 3 # » 


555 PLO T 
2 S P L O T S 
: P L O T JL 3 
5 O O P O lit E 

UMBHi a 


5 , JL 5 S fl> R A WT O 55 , 6 s P L O T 7 , JL 5 8 ll> R A WT O 7 , II 

' ± s #> «A WT O 0 , & : P L O T .1.1 JL 5 8 8> IR A WT 0 JL JL „ 0 

■f 5 !l *> W A m T O 13 , JL. I 

6 7,2 3 P O SIT I O H O , 0 s ? tt6 : * “I'S PT r l s M IT; 

fact other three nows oF e»" 


S 7 O P O K E O 7 , O ; p O SI TIO M 

ome Tiny text press 


6 " A M B> 

E»lSSjEavE3 to 


C O u R s E S 
O M" “ 
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This example is the big time! We have placed alI of the 
previous abilities in this one, but added the information we 
promised in a chart on the screen. RUN the example and 
follow it through with us. 

The program still uses DATA statements to experiment 
with breaking up the screen into mixed graphic and text 
inodes. Use the cursor controls as before to edit the I 1st, 
press RETURN to see what you have created. If you used PLOT 
inodes at the top of the screen, you won't see that the 
controls are different, so pay attention. When the split 
screen appears, you can : 

1) Press START (as before) to go change the 
current DL. 

2) Press SELECT (as before) to go back to the 
originalDL. 

3) Press OPTION and START at exactly the same time. 
This will get you to the last example. 

4) Press OPTION for a chart of the custom DL 






Now get to the new chart by pressing RETURN and then 
OPTION as explained above. The first column is the position 
of each graphics mode you choose:1,2,3...Iast(maximum of 
20!). The second column tells you what number to POKE Into 
location 87. This is simply the regular graphic mode 
number(0-11). Column three is the O.S.mode # which was the 
number you used in the DL itself. Yes, it is confusing to 
use both numbers in the same program when they mean the same 
thing to us, but remember that when you use a regular GR. 
mode # you are talking to the BASIC Interpeter which then 
changes the number you give into the O.S. mode number . We 
are just bypassing the interpeter to get the special screens 
that it doesn't allow! 

The next column is the number of lines of this mode you 
asked for, ie. how many times you included It in the DL. 
This is useful because If you have say six lines of a 
graphic region and you try to plot to 7,7 you will go out of 
that mode and into the next, causing garbage to appear on 
the screen. The same goes for text regions. This column will 
provide a quick reference. Then comes the two columns of 
POKE numbers fcr locations 88 & 89. These two values 
combined with 87 will fool the computer into acting as if 
each region starts with 0,0 at it's upper left corner. This 
makes your PRINT and PLOT statements work like normal. The 
difference is you PRINT/PLOT to EACH region as if it started 
with 0,0 at it's upper left corner. 

Write down all this information or use In your custom 
routine, or to modify one of our examples. 

The chart also lists the number of lines of pixels you 
filled on the screen. If it doesn't come out close to 192, 
or if you want to make some other change, you can go back to 
re-edit the DL by pressing START. If you have too many 
lines, then remove modes lines, or add some if you're short. 


I F 7 " YOU” RE 


Use the parts of this program that you understand now, 
and come back to study and experiment with the rest of it 
later. Basically, you should eventually understand the 
following to use this program. All the rest is 
"additional information": 

1) Use EX.10 to get; 

a) the DL to look about right. 

b) the numbers to POKE into 87, 88, and 89. 
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2) Take EX.11 and change the POKE values 
to what EX.10 will give you when you 
tranfer the numbers from EX.9 Into 
the DL data of EX.10. 

3) Try to change the graphics and text we 
used to your own. 

4) If you have more regions than the example 
has, add more. Likewise if you have less. 

5) Remember to treat each area on the screen 
like it was a small screen by itself... 
don't PLOT or PRINT too far. 


X GRAPHICS .17:? tt6j n EXAMPLE HIT"' 

2 F O ft W- X T Q 2 X O s IP O IK IE 7 X © , W 

3: FOR ZR = .l. TO lSiNEXT ZR 

4. KJ E >4 'F M 

5 D X M P C 2 2 0 3> 8 DIM M U M CZOi) : K> X M MO (l> E C 2 0 J ! ID- X M ft A M 

CX5:» : l)IH START C 28) 8 DIM P88 (2 8) sDXM P89C28S 8 DX 

M LIM (153 

7' D X M B A M t X 3 3 

X. O TRAP 4- 3 0 

20 DIM ZK$(1353 

X 0 GRAPH X C 3 0 :? *« T H X 3 E K AIM P L. E A L E O M 3 V 0 U T 0 C 

H ANGE A MO D E 0 D X 3 P S._ A V L X 3 T » “" 

4 0 2 "PRESS 1-IMaS TO EJEGXM.":? "WHITE DO MM TH 

IE NUMBERS IN THE EH WHEN YOU LIKE THEM!” 

SO DATA XX2,112,112,66,64,156,2,2,2,2,2 2,2,2 

, 2 ,4,4,4,4,4,2 , 2,2,2,2,2,2,2,2,65,32,156 , B 
6.0 DAT' A 0 , © , 0 , © , © , © , © a 0,0,0,0,0,0 , © , © ,0,0,0,0 

, O , © , O , O , © , © , © , 0 „ 0 , © , O , © , B15,3 2 , JL. 5 3,0 

7® DATA 0 , ©, 0,0,0,0,0,0, ©, ©, ©, ©, ©, ©, ©, ©, ©, ©, © 
,©,©,©,©,©,O,©,©,©,©,©,©,©3,32,156,© 

0 © DATA © , ©, ©, © , ©,0,0,0, © , 0,0,0,0, © , © , © , © , © , © 
, ©, 0, ©,©, ©, ©, O, 0, ©, 6,0,0,65,32,156,8 

■3 © POKE 533273,© 

.1.0© 2-PEEK C3 32 79) 

.1. .1.. © X F Z - 3 T H E H JL. 4- © 

.1.2 © GOTO .1. © © 

X. 3: © TRAP 43 © 

.1. 4. © G R A P H X' C 3 © 5 P O 3 X T X O Wl 2,3 

X SI © L X 3 T 3 0,6© 

.1. 3 © P O 3 X T X © Wl 2 , X B S ? “ “ C HAH G E T H IE © A L. Hit IE 3 V O HJ M A 

H T BY U3IN G ‘T H E C O R 3 © R C O MTRO L. 3 „ “ ■ 

X 7 © 2 "“PRESS EIliLiJXilll TO SEE THE HEW SCREEN," 

..1. B© POSITION X © , (J 

X 3 © X H P U T 2 K 3 
2 © © P O S X TIOM ©, 2 

2 X © POKE S 4 2, X3 

22® POSITION 2,17:2 "CONT" 

2 3 © POSX TXOH ©, 2 S 3 TOP 
2 4 © POKE ©4 2 , X 2 
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250 RESTORE 58:MAX = 0 

:K&0 TRAP 498SREAD 5:IF S. > JL 55 THEM 260 
265 IF S>MAK THEM HAH=S 
270 XF 5 = 0 THEM 2 SI 

280 GOT O 2 6 O 

281 OM MAK GOTO 285,285,285,285,285,285,285,2 
055 , 2SS , 2055 , 200,207,202,288,200 

285 U5E=0SGOTO 296 

20G U S E = 2 2 5 GOTO 250 

207 U5E=23;GOTO 250 

200 USE=24 

250 RESTORE SO 

3 0 0 TR A P 4.0 0 

310 I=l:6RAPHICS USE 

3 2 O 8> L. = P E E IK C S 0 & J + 2 S 6*P EEK (561) 

330 A = PEEK(DL + 4) :B = PEEK (t>L + 5) 

340 READ G:XF G=0 THEM 390 
3S0 POKE OIL. + X-X , G 

368 IF 1=5 THEM POKE DL+4,A 
37© XF .1 = 6 THEM POKE DL + 5,8 
300 X=I+1:GOTO 348 

350 FOR 0 = JL TO 188:HEKT Os POKE 87,8 

4O0 POSXTXOM 2,1S? "PRESS CiTFJ&ii"g'aT:i FOR CHART OF 
PLOT VALUES MH EM B>OME„"" 

4J..0 2 ""PRESS HtMlfar*! FOR THE ORIGINAL DISPLAY 

LIST #* » S . •« 

42 0 7 ""PRESS iHSllSS TO CHANGE CURRENT p ; Il 

NUMBERS .. 


42 5 2 “ "PRESS HTg - TIgl & tOGSMSllU TO ROM LAST 

EK AMPLE - 

430 POKE 53279,8 
440 Z=PEEK153279) 

4 S0 X F 2 = 5 THEM 45O 

4.0 O X F Z = 6 T H E M 7 0 

4 6 5 X F Z = 2 THEM ROM " * IT> S E K X X" “ 

4. 7 0 IF Z~ 3 T H E M 550 

4 0 0 G O T O 4 4 0 

40© T RAP 4 OOO0 S G R A PHX C S 0S POSITXON 2, 4 
“SO© 7 "58 DATA 112,112,112,66, A j B; 2,2 

,2,2,2,2,2,2,2,4 4 4 4^,2^,2,2,2,2,2,2,2,65 

, -32,, 156, ©"" 

5 X 0 7 "'60 8> A TA 0,0,0,0,0 „ 0,0,0,0,0 „ 0,0, 0 ,0,0, 

0 J. O' , 0,0,0,0,0,0,0,0,0,0,0,0,0,0,6 S , 32,156,0»« 

S 2. 0 7 11 " 7 0 DAI A 0 , O , 0 , 0,0,0 , <5,0,0,0,0,0 f 0 f 0 f n 

'a , ©, o, o, o „ ©, ©, o , ©, ©, o, o, ©, o, 0 , 0 , 6 s , 3 2 , j_ s 6 f e ;; 

•5 3- 0 7 “" O 0 j|> a T A 0 „ 0 , 0 , 0 , 0 , 0,0,0,0,0 , 0 J, 0 f 0 f 0 0 
O , © , O , O , 0 , O , O , O ,0,0 , O , 0 , O , 0,0,0 „ 0-5 (S2 ,1 56 0-/ 
540 GOTO X60 


5 6 0 J = JL ! K = X :L = 2:P C X 3 = P E E K C t> L + 3 J — 6 4 
57© READ PR:P£L)=PR:IF PCL)>15 THE* 
5S0 XF P fU =B THEM 62 0 
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5-30 IF P(LJ <>P£L-1) THEM MODE CKJ =P CL~i) iNUMCK 

3 = j ; J = i S L = E + X s K = K + x : GOTO 576 

6 0 0 J = J+X s E•— L *■ X. : GOTO 57fl 

620 MOOECK3=PfL-iJ:NUM(K)=J 

6S6 =4-0 : RAHC3} =4-0 : RAM£4X =40 s RAMtS) =40 : R 

AIM £ A 3 3i =40 : RAM £X 4 1 = 40 s RAM f IS) = 40 

633 LIN £2.1 = 6 3 LIH t 3!) = X. O s L I Ml C4J = 8 3 L. X M C 6 X =16 : E X H 

(133 =2 r. LIH (14) = X : LIH (153 =X 

6 34 LIH (63 =0 3 LIH (73 =16 3 LIM (83 =6 3 EX' Ml (3) =4 s LIH £ 
183=4 : LIM (11)=2:LIH (12) =X 

6 3 6 R A M C 63 =20 3 R BMC 2 X = 2 O i: RAM (83 = .10 : RAM £ S’ X = ± O : R 

ift M £ X O X = 2 0 ! RAM C X X 5 =20 S R A M £ X 2 X =20 
6 4 0 F O R HI = X T O K 

644 BAM (23 =0 3 BAM £ 3X =40 ,1 ISAM (43 =40 3 B AM £53 =40 3 BA 
M £ X. 3 X = 7 S 6 A M £ X 4 X = 4 0 3 BAM £ X S X = B 

6 4 6 B A M ( 6 X = X 3 B A M (73 =2 : IS A M £ 6 X = 3 5 B A H £93 = 4 3 IS A M £ X 

OX =5 S BAM £11X =6 3 BAM £ X 2X =40 

66 0 XIF MOD-E (H.3 (MODE (H~i3 THEM 680 

620 5AU=MODE(H3 

6 © O Mi E K T H 

690 XF SAU> 6 THEM 220 

2 O O X F SAW > O T H IE M 5 A M = 6 s G O T O 2 2 O 

2X0 XF 5AW<>0 THEM 2 ““ERROR AT 710. , SAW SHOLIL 

8> BE O"“ : S TOP 
2 2 0 M AH RA M=RAM(SAW) 

22 8 FOR M=X TO K S M2 = 0 !M3 = 0 

735 FOR S=X TO M-X 

2 4 0 I F R A M £ MO BE £ 0 X X = 2 O T IS E M 2 6 O 

2 6 0 X F R A M £ MO DEC0 X X = X & T HEM 2 2 O 

200 GOTO 200 

2 6 O M2 = M O M £ 0 X + M2 5 G O T O 2 O O 
2 2 0 M3 = NUMC53 +M3 
260 NEKT 0 

2 6 3 R = O 

260 F O R W= X T O M - X 5 R = R + IW! 81 M £ MX 3 NEK1 M 

200 CHRPOS = A + B*256+ (R»MAKRAM-M2* (MAHRAM.20) •— M 

3* £ MA H R A M~ X O X X 

20 0 X IF M= X THEM CHRPOS=A + B*256 
600 STARTCMX=CHRPOS 
6 X O M E K T M 

6 2© FOR Z = X TO #C:P89£Z3=I M T £ 0 T A R T C Z X /' 2 0 6 X !! P 6 8 

£ZX = 0 T A8* T £ZX .P6 S' C Z3*256 5 MEK T Z 

620 SOM=0 

6 3 O F O R « = X T O IK s S U M= M 8J M £ Ct X -ME X M £ MO S> E £ « X X + 0 H M 3 

M E H T O 

6 4. © G R A P H X C 0 O 3 P O 0 X 'T X O M O , O 3 2 " “ 

a 0 o posx t ion o , x s •? ■ “ | ip os ii po ke | o . s „ S « l x mes il 

p O K IE i PO {}< IE | a “ 

a6® PO5ITI0H 0,232 ““SOM li INTO 1 MODE t ©IF THIS| 

XMTO 8 IHTO 8 
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& 2 © Ptt 3 X T X O iWI © , 3:? “ ■ i 3 c IR fi & 2 | tt S MO D E il 

88 J 83 it"“ 

880 POSITION 0, 4. ! ? “ fi i 8 —..... . 


» 3 © 
8 3 5 
© 3 8 
3 © i. 
3 © 2 
3 © 3 
3 © 4- 


FOR 34= X. TO i!< 

3 8> = B © M « HO £> E t W3 J 

p o s x r x o iwi . 1 ., 4. + w s 

X F 3 8> — 4 © T H E M 3 

P O 3 X T X O M © , 4 + 84 ! 


P O 3 X T X O M © , 4 + W 5 •' 
P O 3 X T X OIM X 2 4 + 84 


IM O M C 843 P O 3 X T X O M 


Mi 

3(0 ; 3 GOTO 3©4 
"“MOME"" .? 

MO 9> E t B4» S P O 3 X T X O H 
, 4 + 84 5 •?' P88CN) } 


X 8 , 4 + #4 


3 © 3 POS X T X O M 3? 3 , 4 + M : 2 P83 «W) 

3X.© NEXT W: ? ""THE HUMBER OF PIXEL LINES U5Et> = 

» 1 JSUMJ " . " ! ? “" 3 U G G E 3 T V O U CHANGE EH U IM T X 8... X 3 2 

P X H E IL. 8_ X H E 3 IR E 318 8_ T 3 fi " ■ J 

3X5 2 “* COPY NUMBERS OR PRESS Pl ' W g’jl Yi'li TO REDO 

CUfRR E M T HI "GRAPHIC 3 IMIO D E T O tl 3 E XN EX . XX. 

IS "iUSE 


32© POKE 553,34 

3 S © POKE 5 '£ 2 7 3 , 8 
34© 2.--PEEK (53279) 
356 IF Z =© 'F 8-8E M X 4 © 
960 GOTO 34© 

3 3 3 EM 8> 


EXAMPLE 11 
LAST EXAMPLE 


This PLOT Is just like EX.9, but now we add POKEs to 88 
and 89 to fool the computer into acting as if the upper 
corner of each mode was position 0,0. The POKE to 87 then 
says "act as if you're in a regular graphics mode #" (your 
input). Now we just PLOT or PRINT as If each section was a 
small screen with 0,0 at the top like normal. If you PLOT 
too far, the next region down will look funny. We include 
the code for this example (minus a few lines you don't need) 
since this example Is all you really need to understand. Our 
other examples will do all the calculating for you. Make 
sure you change the 5th and 6th numbers in the data I 1st to 
the correct values for your computer, as explained above. 


X© GRAPHICS 17!? **©;’" EXAMPLE HO“" 

2© FOIR B4-“ X TO 2 38© SPOKE 2X0,84 

3'.© FOR ZR = 1. TO X© 8 NEXT ZR 

4 . © NEXT 84 

S© 2 «6i» Lam ExEEPlB!" 

60 FOR 84= X TO 230: POKE 200,84; POKE 203,84 5 POKE 

2X0,845 POKE 2 X X , 84 
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6 5 IF OIP ZR = JL TO 5:HEHT Zft 

7 & M E K T M 

©0 GRAPHICS J. 7:7 »;"TO MAKE THIS EKAMPLE" 

9 & ? 44© ; * » WO RKj V O IS MI L L H A WE " K 

.1 0 O 7 ** 6 ; ” ■ T O C H A MGE T H E V A IL. (1.8 E 5 “ * 

X .1. 0 7 446 .8 »“ E A C 8-8 T X (Ml E ft O IK E 0 33 O ft “ • 

X 2 0 7 It# €3 .8 »“ S 3 IS SJ13 E H> . T H X 5 X 5 

X 3 O 7 44© 2 *" D- O M E 83 V (j'WT'fgffllirW'rim T H E 

.1.4.0 7 44 6 ; "Vft IL U E 33 X INI T 88 E D L O F 

X50 ? **© J “" THX3 IEH . INTO rSfSTinrei - 11 * 

X 6 0 7 B6 ; "the chart will gi o <e 

X 7 0 7 44© .? “ 0 y o u t. lU e >u> a I u & & il- o r- 

X 00 7 «6 ; *■ eac Si, Mode ar-e-a . 3I3C3EIC3*‘ 

2 0 83 POKE 7E4- , 2 55 

2 X 0 X IF' IP E E IK C 7 © 4 3 < > X 2 T H E N 2 X O 

4 83 0 ft E M 

50 0 REM THI3 X3 A 38.J© ft QILS TXME FO ft VOILK TO 8j 3E A 

3 A IPRACTXCI2: EXAMPLE X M PLOTTING AMD- HRITING 


T O T 88 E A ft E A 3 © F T 88 E 

50 3 ft E M 3 C ft E E M T H A T V O U 3 BE 3' U IP X M T 88 E ft ft E W X O U 
5 EXAMPLE . JU5T ft L 88 G IN TIME ft© IKE VALUES FOR L 
83 C A 3" X O M 3 © 2,6 © , £4 33 3 

504 REM AND C H A 83185 E THE MUB-BBER3 X M TIME DATA ST 
ATEMENT TO THOSE VOO WROTE DOWN FROM THE EA3T 

E K A MIP 8.. F . F X M A B_ E V . V O 88 

50 5 REM SHOULD- CHANGE THE IP LOT AMD PRINT ST AT 
EMENTS TO THE ©NE3 YOU WANT. HAVE FUN,..SEE Y 
33 U XM THE NEXT TUTORIAL. 

50 2 GRAPHICS O s REM [mjJECE«Diaaa, REMEMBER TO 
IL8 3E THE GRAPHICS MODE THAT THE CHART GAVE VO 

8.8 . 

5 J. 0 GOSUB X 0O©O 

5 X 5 ft' 43 K E 87,1: ft >13 K E & & ,64: IP O IK E 33 9 , X 5 >& : ft 83 3 X T X O M 
0,0 87 *45 2 ““T 8-8X3 X3 BIG LETTERS" 

5 2 0 2 446 J «“ 83 M T WO L XNE3" S 7 440 S “ “ © R T 88 ft E E "" 

5 4 0 ft' O IK E & B , X 2 4 8 ft' O IK E 8 9 , X 5 83 

5 5 0 ft OIKE ©2,4 2 COLOR X : ft LO T X , © : D ft A WT O .8. ,18: Dft 

A WT O 0 O , X 0 : ft L O T X 5 , X 0 : D ft A WT O IS, 5 2 IP' IL. O T 3 , X O : D 

ftAWTO 3,3 

5 5 5 ft L O T 5 , X 0 2 D ft A WTO 5 , X 2 ft IL O T 7 , X 33 2 ID- ft A WT O 2 ,7 

2 ft L O T 9 , X 0 2 D ft A W T O 3,32ft L O T X X , X. 83 2 D ft A WT O X X , 4 

2 ft 3_ O T X 3 , X 0 2 D ft A M "*" ° x 3 - 6 
5 5 2 IP 83 84 E 8 8, 234 2 ft 33 IK E © 9 , X 5 8 

5 © O ft O IK E 33 7 ,2 2ft O 3 X T IO N 0,83 2 7 440 J *" 

HgjlH i A fact a rio t h e r three n-ows o t- 

5©5 ft O IK E 8 8,5 « 2 ft O K E 8 9 , X 5 7 

5 2 83 POKE 8 7 ,0 2 ft 83 3X T X 83 M 0,33 2 7 " “ A M D- O8”' C O Uft 3 E 3 

O ME TINY TEXT.PRESS WETBJRM TO 83 0 83M' S 

7 3 0 IP O IK E 5 3 2 7 9 ,8 

2 4 83 2'-PEEK >C532735 

7 s; 0 IF Z = © T H E N 2 0000 

-31 - 





G O GOTO 740 


.10 0 0 O 
. 1 . 0010 
X. 0 0 A A 
A 0012 
X 0 0A 3 
JL 0 0A 4- 
JL. O O A S 
JL. 0 0 A © 
JL 0 0 2 0 
.1.0 0 3 0 
9 , 9 , 9 


TRAP 1004 0 

OL=PEEK £560J +256«PEEK £S61) 
Z1=P E E IK «: »> L *• 4- 3 S Z 2 = P E IE IK C 8> «... + S 3> 
X = X 


R E A fl> 
P O K E 


X E 


rHEN TOO 40 


A ! IF * 

(DL+I-13 , A 

5 THEM POKE OL+4,21 

6 THEM POKE 8>L + S , 22 

X = X + X ; G O T O .10 O X 3 

DATA X X 2, X X 2, XX 2,78,64, XS©, 
9 , 9 , 3 , -3 , 2 „ •/ ,7,7,2,2,2,2,2 „ 2 


0,0,9, 

,2,00, 


, 0,0,0 

X 0 O 4 0 R E T U RIMI 

2 O O O 0 G R A P H X C'5 O s POKE 718,0 

2 O O O X 2 »“ THANKS FOR BUYING FROM SANTA 

DUCATIOMAL SOFTWARE* » !"*j SGOTO 2000.1 


9,9,9, 
32 , .12 4 


C R fij Z E 


Final Notes 


Sometimes when you do your custom screens you probably 
will have your text or plot suddenly shift over like this 

to the other side of the 
screen. This Is because your Display List Is going along 
at,say, modes using 40 bytes per line when you shift and use 
three lines of a mode using 20 bytes per mode. The system is 
still trying to place the data where it used to go, so if 
you use 40's then switch to 20's or 10's, keep It In 
increments of the largest value. For example, if you use 40 
byte modes then if you have 10 byte modes either use 4, 8, 
12 , etc., so that the computer can find 40 at a time. DON'T 
FOOL MOTHLR ATARI! 

We also want to warn you that EX.10 occasionally can be 
fooled by unusual inputs, so if the chart seems Incorrect it 
may be. This is not a serious problem because you are going 
to learn to do all the calculations yourself, AREN'T YOU??? 

The other modes in the chart (FIG.1) that aren't 
explained are for things like lowercase descenders and 
multi-colored letters. See, I told you not to ask. These 
would be good topics for another Tricky Tutor I a I(tm). Well, 
maybe SOMEDAY. 

Well that's it. If even a new programmer will experiment 
with these examples, he or she will at least be able to make 
some nice custom screens without having to understand it 
all. 
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HORIZONTAL AND 
VERTICAL SCROLLING 


This program will teach you the 
basic principles of moving text or 
graphics on the screen. Movement can be 
in any direction that you choose. A 
total of eighteen examples are provided 
plus a 15 page manual to explain them. 

Each example, including those with 
some assembly language subroutines, are 
designed to be easily placed in your own 
programs. Anyone with some knowledge of 
the BASIC programming language can use 
the examples now, and later study the 
manual in more detail. This program is 
part of a continuing series and goes 
particularly well with #1 - Display 
Lists. 

REQUIRES 16K OR 24K IF YOU HAVE 
DISK. 
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TRICKY TUTORIAL #2 


HORIZONTAL & 

VERTICAL SCROLLING 

by 

Rob In Sherer 

(c)1981 by Educational Software Inc. 

INTRODUCTION - Hi. I'm going to start out this tutorial with 
a sales pitch for one of the other tutorials I teach. As 
phony as this sounds, I can't help It. To fully understand 
how to scroll you need to also study Display Lists, Tricky 
Tutorial(tm) # 1. However, if you just want to be able to do 
the different types of scrolling In your own programs, THIS 
WILL DO IT FOR YOU. I'll tell you what to modify without 
great exp I a InatI on. All of the examples have different 
features. Some are faster, some smoother In their scrolling. 
It's up to you to take parts of our examples and make them a 
part of your programs. 


HOW TO LOAD 


TAPE.... 

Place the tape In your recorder, label side up. Make 
sure the tape Is rewound, and the BASIC Cartridge Is In 
place, and always reset the counter to zero. Push PLAY on 
the recorder and type RUN"C: and press RETURN. If the 
program won't start to load, try positioning forward or 
backwards a little. The easiest way to find the beginning Is 
to listen to the "noise" on the tape with a regular 
recorder. When you find the steady tone, you have the 
beginning of the program. We recommend you write down the 
number on your recorder's counter as each program example 
starts, this will make it easier to find each part later on. 


DISK.... 

To load and run the disk, first turn on your disk drive. 
When the busy light goes out, place the disk in the drive. 
Now turn on the computer, with the BASIC Cartridge in place 
and the program will load each part and run by Itself. 


Any defective tapes or disks should be returned to: 

Educational Software inc. 

4565 Cherryvale 
Soquel, CA 95073 
(408) 476-4901 
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ALL RIGHT STUDENTS! LET'S BEGIN WITH (SURPRISE!) 


EXAMPLE 1 

Basic Ideas 


If you haven't already, run the first example. To get to 
the next example each time, you only have to press START. 
Note - cassette examples should run themselves when loading 
is done. If not, type RUN and press RETURN. You may have to 
rewind some examples to the end of the last example and try 
several reloads. Remember that this tape has many examples, 
so it Is harder to LOAD them all than some small games. 

Plug In a Joystick into Port 1 on the front of your 
console. You are now looking at a listing of the example 
that Is running. I listed it as an easy way to get text on 
the screen to scroll. This example, and all others where we 
use LIST to get text on the screen, will work exactly the 
same if you take out the LIST statement and substitute your 
own PRINTing or PLOTing. Do this as soon as you feel you are 
beginning to understand the method. 

If you move your Joystick to the left or right, the text 
will move in that direction. Look closely at the text as it 
moves. Notice that It moves one character at a time in 
either direction. This is called COARSE SCROLLING. Later, we 
will learn how to move one pixel at a time which is called 
FINE scrolling. Eventually we will combine both methods for 
(guess what?) COMBINED SCROLLING. 


Take a Break. 

OK! Back to Work: 


Warning! 

In most of our examples we wanted to keep the amount of 
BASIC code short, so If you move too far in any direction, 
the POKEs we are doing may cause the program to error and 
stop. To avoid this problem in actual examples, you will 
have to make sure you don't try to POKE a number larger than 
255 into memory. Some of examples will automatically do this 
for you. To restart a stopped example, just press RESET and 
type RUN. 
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Here Is the code for Example 1, a simple coarse 
horizontaI scroll: 

10 DL = PEEK(560)+256*PEEK(561 ) 

20 DL4=DLt4:DL5=DLt5 
30 PDL4=PEEK(DL4) 

40 ST=STICK(0) 

50 IF ST=11 THEN PDL4=PDL4t1 
60 IF ST=7 THEN PDL4=PDL4-1 
70 POKE DL4,PDL4 
80 FOR W=1 TO 50 :NEXT W 
90 GOTO 40 


THAT’S IT! 

Another note - Yes we know that If you list Example 1 It 
has more lines than this. The missing lines above were put 
In Example 1 to make it have a title and call Example 2 when 
you are ready. The same differences will occur with my other 
examp Ies. 

To better understand this method, first a few basics from 
the Display List Tutorial. The Display List is a set of 
instructions in memory that the computer uses to find out 
what to put on the screen. By changing it, we can do many 
programming tricks that are not only interesting to look at, 
but useful. Scrolling is one of those tricks. 

Line 10 above looks at locations 560 & 561 by use of the 
PEEK command. The values in these two memory locations 
combine to give you the location (called the address) of the 
first byte of the Display List. They are combined into the 
address as line 10 shows. ANYTIME you have a 2 byte address, 
the method in line 10 is used. Whenever you use the 
"GRAPHICS #" command, the computer creates a standard 
Display List somewhere in memory and puts the location where 
the DL starts in memory locations 560/561. 

Now that we know where the DL (Display List) is, line 20 
stores the address of the low part (DL4) and high part (DL5) 
of a number that is always the 5th and 6th numbers in the 
DL. Note that we call the 5th number into the DL, DL4, 
because it is equal to the value at DL plus 4 more, or the 
5th number from the start. Confused? Then just remember that 
these two numbers tell the computer where to go get the data 
for the screen. 


- 3 - 



IMPORTANT! 


You must understand what these two numbers do. Scrolling Is 
based on changing these values. Let's look at a sample GR. 0 
Display List : 

112112112 66 95 34 222222222 
222222222222222 65 89 56 


The first three numbers are 112's that tell the computer 
to display 8 blank lines each. The next number is called the 
Load Memory Scan byte (LMS for short). This is the number we 
are about to change. The LMS says to the computer "Go get 
data starting at the location in memory that follows in the 
next two numbers... and by the way, start the screen with 
some of this kind of text (or graphics)". 

Wow. I can't learn this! 

After reading my exp I ainations, you may think I'm as 
confused as you are, but it's not that hard, and my lessons 
not that bad! You must practice on your own beyond these 
examples. Try making modifications to what I have given you. 
Later I'll give you a chart that shows what number goes into 
the LMS byte (4th # in DL). In this case the chart would say 
that for a Graphics 0 LMS, we use 66. The next two numbers 
(5th and 6th bytes) are the low and high parts of the 
location where the screen data starts in memory. The example 
above was made up, so your numbers will be different 
depending on your memory size. That's why we store the value 
of the 5th #(DL+4 means the 5th number) in lines 20 & 30. We 
need to know where the data is being stored in YOUR 
computer. 

The next numbers withi-n the DL, the 2's tell the computer 
to put a line of Graphics 0 on the screen for each 2. Again 
the chart will give you these numbers later for other modes 
and types of scrolling. There are 23 2's plus the line of 
mode 0 that the LMS created gives 24 lines of mode 0. If you 
want, look ahead at the chart to see all of this. Under 
Graphics mode 0 it says to put 2 in the DL, ie. 2 is the 
instruction that MEANS put some GR.O on the screen. Finally 
comes a 65 that means all done, go start all over again 
using the DL at the location in the next two numbers 
(usually the same DL) . 

Ok! So far we have found where the data to put on the 
screen is located (lines 20-30). Now, in line 40 we read the 
Joystick. If it is held left, then we take the value in 
DL+4, called here PDL4, and add 1. If it is held right, we 
subtract 1 in line 60. Now line 70 POKEs this changed value 
back into the DL at DL+4. This says to the computer "start 



displaying the data on the screen one byte more (or less) 
than where you did before." SIMPLESure, why not! 

Line 80 Is a delay loop to slow the action down so we 
can see what Is happening. Line 90 then goes back to read 
the Joystick to see if you want to move the display some 
more. 

Notes: 

1) You can speed up this method by changing or leaving 
out the delay Ioop. 

2) So far we haven't changed the high part of the data 
address (DL+5). If you try to move continually In 
one direction the value of PDL4 will reach 0 or 255. 
Recall that the ATARI uses 8 bits per word in 
memory, ...and 8 bits in binary only counts 

to 255. When this happens, the number you POKE 
into DL+4 will no longer have any effect. Actually 
It is causing errors that the example Is TRAPIng 
to keep the program going. It's sort of like 
bottoming out. The simple solution is to do some 
mathamatics to change the high byte (DL+5) when 
needed. We do this in Example 2. 


EXAMPLE 2 


This time we scroll vertically: 
10 GRAPHICS 0 

20 DL=PEEK(560)+256*PEEK(561 ) 

30 DL4=DL+4:DL5=DL+5 
40 NUML=PEEK(DL4) 

50 NUMH=PEEK(DL5) 

60 ST=STICK(0) 

70 IF ST=14 THEN NUML=NUML+40 

80 IF ST=13 THEN NUML=NUML-40 

90 IF NUML <0 THEN 140 

100 IF NUML <256 THEN 160 

110 NUML=NUML-256 

120 NUMH=NUMH+1 

130 GOTO 160 

140 NUML=NUML+256 

150 NUMH=NUMH-1 

160 IF NUMH<0 THEN 60 

170 IF NUMH>255 THEN 60 

180 POKE DL4 , NUML:POKE DL5,NUMH 

190 GOTO 60 
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The only real difference in COARSE vertical scrolling 
over that of horizontal Is that to move vertically we want 
to add or subtract 40 i nstead of 1. Do you know why? Of 
course! It's because we are using the ATARI'S standard 40 
characters per line for mode 0. Thus, to move the LMS 
address up one line, add 40. This is done In line 70. For 
other modes you may need to use 20 or 10 Instead of 40. Look 
ahead at the chart under the row "Bytes of memory per line". 
Also this time we Include the mathamatlcs to change both 
numbers of the address of the data to display. The math 

won't be explained.just use It as is. It Is standard 

computer math explained In most references. Finally, note 
that no delay loop was used. The extra math delays the 
computer enough! 

EXAMPLE 2A 

This is a new example added by suggestion from one of 
our customers. Some people didn't see how to combine 
horizontal and vertical scrolling, so here It Is. You can 
later do the same thing for FINE scrolling. See Micheal, I 
told you I listen to my students! 

1 GRAPHICS 17:? #6;" EXAMPLE 2A" 

2 FOR W=1 TO 230:POKE 710,W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 GRAPHICS 0 

20 LISl 

30 DL=PEEK(560)+256*PEEK(561 ) 

40 DL4=DL+4:DL5=DL+5 
50 NUML=PEEK(DL+4) 

60 NUMH=PEEK(DL+5) 

65 POKE 53279,8 
70 ST=STICK(0) 

80 IF ST=14 OR ST=10 OR ST=6 THEN NUML=NUML+40 
90 IF ST=13 OR ST=9 OR ST=5 THEN NUML=NUML-40 
92 IF ST=6 OR ST=7 OR ST=5 THEN NUML=NUML-1 

94 IF ST=10 OR ST=11 OR ST=9 THEN NUML=NUML+1 

95 C0N=PEEK(53279):IF C0N=6 THEN 1234 
100 IF NUML<0 THEN 160 

110 IF NUML<256 THEN 175 

120 NUML=NUML-256 

130 NUMH=NUMH+1 

150 GOTO 175 

160 NUML=NUML+256 

170 NUMH=NUMH-1 

175 IF NUMH<0 THEN 70 

177 IF NUMH>255 THEN 70 

180 POKE DL4,NUML:POKE DL5,NUMH 

190 GOTO 70 

1000 POKE 53279,8 

1010 C0N=PEEK(53279):IF C0N=6 THEN 1234 
1234 POKE 764,12:RUN »D:EX3" 
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EXAMPLE 3 


Lets sketch out an abbreviated screen of data: 


is stored In memory as... 


<-40-> 

Characters 

/ \ 

I AM.BEC 

AUSE.ALS 

24 lines 
tota I 

V J 

GR.O 


33 

27 

41 


1 9 
1 4 
32 


First 40 
#'s that go 
as 1st line 


2nd 40 #»s ^ 
= 2nd line 
on screen 


Figure 1 


is still stored In memory 
like this... 


-256- 

Characters 


BECAUSE....AL 


24 lines 
tota I 


47 * 

9 

0 

21 1st 256 

. #'s used 

. for 1st 

. I i ne 

1 4 _ 

1 9 
87 

2 2nd 256 

. #'s used 

. for 2nd 

. I i ne 

62_ 










etc. 


Figure 2 

* This number Is stored in your memory at (DL+4)+(DL+5)*256 
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Look at the top of Figure 1. The box drawn represents a 
screen area which is 40 characters wide by 24 down. You can 
see that if we attempt to scroll horizontally over this 
area, we have nowhere to go, so the data on the last line 
just moves up to the next line one character at a time. What 
can we do? Figure 2 shows some data that is now wider. How 
wide is optional with you. Since memory is always stored 1 
value at a time, you can set up lines of any width. It is 
the use of more than one LMS byte that sets up different 
line widths. The box that represents the screen now has room 
to move to either side when horizontally scrolled. 

The idea In the above paragraph is not easy to grasp. 
Let's start with some basics. Memory Is organized like a 
very long strip of numbered locations. When we say to PEEK 
at (look at) a certain memory location, what we are really 
doing is to go down this strip of locations until we get to 
the number in question. Then we read what is written there. 
Got that? Good! When the computer starts to draw the 
screen... 60 times a second ....it goes out to the location 
we discussed earlier (DL+4 and DL+5). There It gets the 
location for the start of the screen data. In a 48k machine 
in GR. 0, this would be at 40000. If an "A" is currently 
being displayed in the upper left corner, a PEEK at this 
location will show "33". 

To draw the rest of the screen, the computer looks at 
the next 39 locations (for a total of 40) and draws them 
across the screen. Now it says to itself: "Since I'm In 
GR.0, I must place the next value back at the start of the 
screen, but one row down. This means the 41st value goes 
right under the 1st. This goes on until the screen is filled 
(after 40*24 values have been placed on the screen). What we 
do to make memory seem like Figure 2 is to fool the computer 
into taking every 256th value as the start of a new line. 
This allows us to move sideways over the data. The sideways 
comment is from the perspective of the screen... memory is 
still just that long strip of locations, and we are still 
taking 40 memory values at a time for each row of the screen 
in GR.0. But after 40 values are used, we skip 256-40 values 
before the next line is drawn. The other 216 values are 
being saved for when we scroll. In Figure 2, imagine that 
the initial screen shows us values from 8 to 47. To scroll 
left, just have the screen show values from 7 to 46, 6 to 
45, etc. When we get to showing 0 to 39 we must stop or the 
values will jump up a line as we would now be showing 255 of 
the last row through 38 of the current row. This Is what we 
saw in Example 2. 



1 GRAPHICS 17:? #6;" EXAMPLE 3" 

2 FOR W=1 TO 230:POKE 710,W 

3 FOR ZR=1 TO 10:NEXT ZRjNEXT W 
5 PI06=PEEK(106) 

10 POKE 106,PEEK(106)-24 

15 GRAPHICS 0:LI ST 

20 DL = PEEK(560)+256*PEEK(561 ) 

30 P560=PEEK(560):P561=PEEK(561) 

40 DL4=PEEK(DL+4):DL5=PEEK(DL+5) 

50 START=DL4t256*DL5 
60 FOR 1=1 TO 24 
70 POKE DL+3*I,66 
80 POKE DL+1+3*I,DL4 
90 POKE DL+2+3*I,DL5+I 
100 NtXT I 
110 POKE DL+78,65 

120 POKE DL+79,P560:POKE DL+80,P561 
130 K=0 

135 POKE 53279,8 
140 ST=STICK(0) 

145 CON=PEEK(53279):IF C0N=6 THEN 1234 

150 IF ST =11 THEN K = K + 1 

160 IF ST=7 THEN K=K-1 

170 FOR L=0 TO 23 

180 POKE DL+4+3*L,DL4+K 

190 NEXT L 

200 GOTO 140 

1234 POKE 106 , P106 : RUN "D:EX4" 


WE'LL TAKE IT SLOW: Location 106 holds the number of pages 
that your memory size allows. In my 48k machine it is 106. 
In line 10 we store the original value to restore in line 
230 when the program is done. Now, in line 20, we fool the 
computer by subtracting 24 pages from 106 (a page is 256 
bytes of memory). Then, in line 30 when we say Graphics 0, 
the computer looks at location 106, thinks memory is 24*256 
bytes less than it Is, and places the Display List down by 
this much in memory. What we have so easily accomplished is 
to save that many extra bytes of memory for a lot of data 
for the screen. Lines 40 to 60 store the location of the DL 
and the start of screen data as before. 

The next lines, 70 to 110, do a nice trick. Now that we 
have such a large area to use, we POKE the DL with a whole 
bunch of LMS, low, high instructions, with each address 
pointing to data 256 bytes further down in memory. So what? 
Well, now there are lines on the screen (run Example 3) that 
are 256 bytes long. With the Joystick you can scroll and see 
NEW information appear.... not from the row below, as before. 
Remember that there has to be enough of these LMS POKEs to 
fill the screen, which for GR.O equals 24, thus the loop 1 
to 24 on I Ine 70 . 
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The data we are scrolling over is again placed on the 
screen by the LIST command. Now you can see where the ending 
of each 40 bytes is, because that is where each new line of 
the program listing starts. 

To better visualize this, look at Figure 2 again. The 
LMS addresses should point to the data for the left corner 
of each line. It sounds complicated, but by using 256 long 
lines we can just add 1 to the original DL5 value for each 
new LMS we set up. The new value will point down by one line 
of data...256 bytes!! Remember that values in the high byte 
of a number equal 256 times those in the low byte (just use 
the example if this is too hard...come back to It later) 
Look at line 100 to see the above. 

You could, with sImpIemathamatIcs, set up lines of any 
length you want, but lines of 256 characters were easier and 
clearer for a demonstration like this. Lines 160 to 220 
increase or decrease the DL4 number by one, as In Example 1. 
But now the lines are 256 wide, so we can scroll without 
having characters jump up to the next line. Also note In 
line 200 that we only POKE every third line. This is because 
the DL must now use three lines of instructions for each 
line generated on the screen. 

What if I'm Iost 

That is what is nice about the Tricky Tutorials—you 
don't have to understand all this. Just use the examples by 
copying them to your tape/disk and modify them with 
different PRINT and PLOT commands. The technical stuff is 
included to make a complete package for your use when ready. 


EXAMPLE 4 


Please run Example 4. Notice that we used Graphics 2 for 
this example. This was to show you that any mode will 
scroll. Also, we relocated the entire Display List to page 
six of memory (a reserved area for us to use) so that It 
could be modified while leaving the original intact. 

Different Graphics modesl 

What happens when you change Graphics modes? Well look 
at that famous chart we keep promissing and read the 
discussions I ater . 



LOOK AT GRAPHICS MODE (0-8) THEN GO DOWN UNTIL DESIRED 
OPTION IS FOUND 






GRAPHICS 




Desired 





MODE 





Option 

0 

1 

2 

3 

4 

5 

6 

7 

8 

DL # 

2 

6 

7 

8 

9 

1 0 

1 1 

1 3 

15 

HScro 1 1 

1 8 

22 

23 

24 

25 

26 

27 

29 

31 

VScrol 1 

34 

38 

39 

40 

41 

42 

43 

45 

47 

HS&VS 

50 

54 

55 

56 

57 

58 

59 

61 

63 

LMS 

66 

70 

71 

72 

73 

74 

75 

77 

79 

HS & LMS 

82 

86 

87 

88 

89 

90 

91 

93 

95 

VS & LMS 

98 

1 02 

1 03 

1 04 

1 05 

1 06 

1 07 

1 09 

1 1 1 

HS , VS,LMS 

1 1 4 

1 1 8 

1 1 9 

1 20 

121 

122 

123 

125 

127 

# Pixel 
lines per 
mode 1ine 

8 

8 

1 6 

8 

4 

4 

2 

2 

1 

# Rows 
to fill 
screen 

24 

24 

12 

24 

48 

48 

96 

96 

192 

Bytes of 
memory 
per 1ine 

40 

20 

20 

1 0 

1 0 

20 

30 

40 

40 


65 = 

1 12 = 

Start again at top of DI 
8 Blank lines 

splay list 




10 GRAPHICS 17:? #6;" EXAMPLE 4" 

20 FOR W=1 TO 230:POKE 710,W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 POKE 1536,112 

50 POKE 1537,112 

60 POKE 1538,112 

70 FOR 1=1 TO 12 

80 POKE 1536+3*1,71 

90 POKE 1536+3*1+1,0 

100 POKE 1536+3*1+2,1 

110 NtXT I 

120 POKE 1575,65 

130 POKE 1576,0 

140 POKE 1577,6 

150 POKE 560,0 

160 POKE 561,6 

170 K=130 

180 POKE 53279,8 

190 ST = STICK(0) 

200 IF ST = 7 THEN K = K-1 
210 IF ST =11 THEN K = K + 1 
220 FOR J=1 TO 12 

230 C0N=PEEK(53279):iF C0N=6 THEN 270 

240 POKE 1536 + 3*J + 1,K 

250 NEXT J 

260 GOTO 190 

27U RUN "D:EX5" 


EXAMPLE 5 


This example generates some random characters and POKEs 
them right into the screen data area. To some of you, this 
will look like a useless example, but please think a moment. 
In order to get the text YOU want onto the screen, just 
replace the RANDOM statements In lines 120 to 170 with PRINT 
statements. If your text Is not 256 characters wide, then 
fill in with blanks. The text could be stored in DATA 
statements and then read in as needed. Think what a nice 
business spread sheet could be done! 

Did you notice that this example scrolls faster. The 
reason for this is that in ATARI BASIC, F0R-NEXT loops 
(which we use) go back to the first line and count forward 
on every loop. This means that they run faster If near the 
front. Also, if several lines are placed on one line speed 
increases. Finally, any math calculation should be done only 
once if possible. This example has these changes for you to 
study : 


50 X=DL+4:FOR L=0 TO 69 STEP 3:P0KE X+L,Y:NEXT L:RETURN 



270 ST=STICK(0):K=K+(ST=11)-(ST=7) :Y=DL4+K 


310 GOSUB 50 

LINE 50 does the exact same thing as lines 
in Example 3. It Is a subroutine to allow I 
to the top. Line 270 Is much faster than 
statements. I better explain It. If ST = 11 
part will be TRUE, so (1) will be added to K. 
ST=7. Since both can't be true at once, K wil 
or down by one each pass if the stick Is moved 
has it's nice points tool 


10 GRAPHICS 17:? #6;" EXAMPLE 5" 

20 FOR W=1 TO 230:POKE 710,W 
30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
40 GOTO 55 

50 X=DL+4:FOR L=0 TO 69 STEP 3:P0KE XtL,Y:NEXT 
55 PI06=PEEK(106) 

60 POKE 106,PEEK(106)-24 
70 GRAPHICS 0 

80 DL = PEEK(560)+256*PEEK(56 1 ) 

90 P560 = PEEK(560):P561=PEEK(561 ) 

100 DL4=PEEK(DLt4):DL5=PEEK(DLt5) 

110 DL5=DL5+1:POKE DL+5,DL5:POKE 89,DL5 
120 SlARl=DL4+256*DL5 
130 FOR G=0 TO 4 
140 FOR H=0 TO 255 

150 POKE START+G*256+H,G+1*RND(9)*100 

160 NEXT H 

170 NEXT G 

190 FOR 1=1 TO 24 

200 POKE DL+3*I,66 

210 POKE DLt3*I+1,DL4 

220 POKE DL+3*I+2,DL5+I-1 

230 NEXT I 

240 POKE DLt78,65 

250 POKE DL+79,P560:POKE DLt80,P561 
260 POKE 53279,8 

270 ST=STICK(0>:K=K+(ST=11)-(ST=7):Y=DL4tK 
300 C0N=PEEK(53279):IF C0N=6 THEN 330 
310 GOSUB 50 
320 GOTO 270 

330 POKE 106,P106:RUN "D:EX6" 


190 to 220 
t to be moved 
the two IF 
then the ST=11 
Likewise with 
I either go up 
. ATARI BASIC 


L:RETURN 
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EXAMPLE <£* 


What about a practical use? Well, how about a 
processor that would allow you to input the width and 
not wrap around, but rather scroll right or left as 
want. To use Example 6, just type In a bunch of lin 
text (almost filling the page is best). When ready, 
RETURN. Now use the good old Joystick to scroll. If you 
at the code, we added only a few lines. The POKE 559 at 
140 turns off the screen until we want It on at line 
This speeds up the ATARI and looks more professional. 


10 GRAPHICS 17:? #6;" EXAMPLE 6" 

20 FOR W=1 TO 230:POKE 710,W 
30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
35 P106=PEEK(106) 

40 POKE 106,PEEK(106)-24 
50 GRAPHICS 0 
60 DIM A $(255) 

70 DL=PEEK(560)+256*PEEK(561 ) 

80 P560=PEEK(560):P561=PEEK(561) 

90 DL4=PEEK(DL+4):DL5=PEEK(DLt5) 

100 DL5=DL5+1:P0KE DLt5,DL5:POKE 89,DL5 
110 N0N=PEEK(559) 

120 START=DL4t256*DL5 
130 INPUT A$ 

140 POKE 559,0 

150 FOR 1=1 TO 24 

160 POKE DLt3*l,66 

170 POKE DLt1+3*I,DL4 

180 POKE DL+2t3*I,DL5+I-1 

190 NEXT I 

200 POKE DLt78,65 

210 POKE DL+79,P560:P0KE DLt80,P561 
220 POKE 559,NON 
230 K=0 

240 POKE 53279,8 
250 ST=STICK(0) 

260 IF ST =11 THEN K = Kt1 

270 IF ST=7 THEN K=K-1 

28U C0N=PEEK(53279):IF C0N=6 THEN 330 

290 FOR L=0 TO 23 

300 POKE DL+4t3*L,DL4+K 

310 NEXT L 

320 GOTO 250 

330 POKE 106,P106:RUN "D:EX7" 


word 
then 
you 
es of 
press 
I ook 
I I ne 
220 . 
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EXAMPI_I 


-7 


This looks just like the last example, doesen't It? 
Well, when you press RETURN and try to scroll something 
funny will happen. The screen will go "crazy” because we 
POKE the wrong numbers Into the DL. Look at the code and 
find the error. This error Is typical of the type that 
occurs when modlfing displays. 

Now, just like the contests that a certain computer 
company holds, we will give $50. to the LAST person to send 
us the correct answer (Can you believe some people actually 
wrote us hoping they would be the last one and thus win a 
prize!). It's a joke, folks...don't write In. 


10 GRAPHICS 17:? #6;" EXAMPLE 7" 

20 FOR W=1 TO 230:POKE 710,W 
30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
35 P106=PEEK(106) 

40 POKE 106,PEEK(106)-24 
50 GRAPHICS 0 
60 DIM A$(255) 

70 DL=PEEK(560)+256*PEEK(561) 

80 P560=PEEK(560):P561=PEEK(561) 

90 DL4=PEEK(DL+4):DL5=PEEK(DL+5) 

100 DL5=DL5+1:POKE DL+5,DL5:POKE 89,DL5 
110 N0N=PEEK(559) 

120 START=DL4+256*DL5 
130 INPUT A $ 

140 POKE 559,0 

150 FOR 1=1 TO 24 STEP 3 

160 POKE DL+3*I,66 

170 POKE DL+1+3*I,DL4 

180 POKE DL+2+3*I,(DL5+I-1) 

190 NtXT I 

200 POKE DL+78,65 

210 POKE DL+79,P560:P0KE DL+80,P561 
220 POKE 559,NON 
230 K=0 

240 POKE 53279,8 
250 ST=STICK(0) 

260 IF ST=11 THEN K=K+1 

270 IF ST=7 THEN K=K-1 

280 CON=PEEK(53279):IF C0N=6 THEN 350 

290 FOR L=0 TO 23 

300 POKE DL+4+3*L,DL4+K 

310 NEXT L 

320 GOTO 250 

330 POKE 53279,8 

340 C0N=PEEK(53279):IF C0N=6 THEN 350 
350 POKE 106,P106:RUN »D:EX8" 
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EXAMPLE S 


This time we point out that you don't have to scroll all 
the lines on the screen. You can enable scrolling for only 
the lines you want. Look at lines 170 to 190 in this 
example. We POKE only the 3rd to 5th lines on the screen. 
You can scroll from one line to a screen full. Any mode line 
in the DL can be set from regular (DL #'s 2 to 15) to 
scrolling (see the chart; for examp Ie...GR.6) horizontally 
(27), vertically (43), or BOTH directions for diagonal 
scrolling (59). This effect can, for example, be used to 
make a nice scrolling "marque" of text across the screen. 

The other possibilites for a mode line are LMS (LOAD 
MEMORY SCAN) mentioned above; HS & LMS, which is when you 
want tell the computer where to get Its screen data and also 
have that line (remember LMS sets up a line on the screen 
also) be able to scroll. The same applies to vertical 
scrolling & LMS, and HS, VS, & LMS. 

Yes, I am using a lot of terms and abbreviations. You 
may feel better knowing that even I, as a programmer, was 
confused at first. The concepts we are teaching here are NOT 
BASIC programming, but rather Graphics programming, which Is 
a new and complex area. After this lesson, some of you 
non-programmers will be way ahead of many professionals 
unfamiliar with graphics. 


1 GRAPHICS 17:? #6;" EXAMPLE 8" 

2 FOR W=1 TO 230:POKE 710,W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
5 PI06=PEEK(106) 

10 POKE 106,PEEK(106)-24 
15 GRAPHICS 0:LIST 
20 DL=PEEK(560)+256*PEEK(561 ) 

30 P560=PEEK(560):P561=PEEK(561) 

40 DL4=PEEK(DL+4):DL5=PEEK(DL+5) 

50 START=DL4+256*DL5 
60 FOR 1=1 TO 24 
70 POKE DL+3*I,66 
80 POKE DL+1+3*I,DL4 
90 POKE DL+2+3*I,DL5+I 
100 NEXT I 
110 POKE DL+78,65 

120 POKE DL+79,P560:POKE DL+80,P561 
130 K=0 

135 POKE 53279,8 
140 ST=STICK(0) 

150 IF ST=11 THEN K=K+1 
160 IF ST=7 THEN K=K-1 
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165 CON=PEEK(53279):IF CON=6 THEN 1234 

170 FOR L=2 TO 4 

18U POKE DL+4+3*L,DL4+K 

190 NEXT L 

200 GOTO 140 

1234 POKE 106,P106:RUN "D:EX9" 


EXAMPLE 


Th I s examp I 
direction with 
commands If you 
numbers have be 


Is coarse scrolling, but In the 
GRAPHICS. Just substitute your 
Ike. The method Is the same, 
i changed using the chart. 


vert leal 
own PLOT 
only the 


1 GRAPHICS 17:? #6;" EXAMPLE 9" 

2 FOR W=1 TO 230:POKE 710,W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 GRAPHICS 5+16 

20 COLOR 1:PLOT 1,1:DRAWT0 79,39 
30 DL = PEEK(560)+256*PEEK(561 ) 

40 DL4=DL+4:DL5=DL+5 
50 NUML=PEEK(DL+4) 

60 NUMH=PEEK(DL+5) 

65 POKE 53279,8 
70 SI=STICK(0) 

80 IF ST=14 THEN NUML=NUML+40 

90 IF ST=13 THEN NUML=NUML-40 

95 C0N=PEEK(53279):IF C0N=6 THEN 1234 

100 IF NUML<0 THEN 150 

110 IF NUML<256 THEN 170 

120 NUML=NUML-256 

130 NUMH=NUMH+1 

130 NUMH=NUMH+1 

140 GOTO 170 

150 NUML=NUML+256 

160 NUMH=NUMH-1 

170 IF NUMH<0 THEN 70 

180 IF NUMH>255 THEN 70 

190 POKE DL4,NUML : POKE DL5,NUMH 

200 GOTO 70 

1234 RUN "D:EX10" 
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EXAMPLE 1O 


If you look on the chart, you'll see that for GR. 0 the 
regular number for the DL is 2, but to scroll (fine) 
vertically use 34. In the code for this example we POKE 34 
into the DL in lines 25 to 40. This tells these lines to 
fine scroll, but how much? Fine scrolling means instead of 
moving a row (column) of letters or graphics one character 
or graphics pixel (these come in different sizes - see your 
BASIC manual) at a time, we move these characters one TV 
pixel at a time. TV pixels are the tiny dots you see when 
you look CLOSELY at your TV, or Monitor. 

To fine scroll, we change the value in a new location: 
54277. This location may contain 0 (normal) to 15. These 
numbers are the number of TV pixels that the line will be 
moved. This example is in a loop to scroll up 7 then reset 
to 0, then loop again. If we were In another Graphics mode, 
we would look at the chart to see how many pixels per mode 
line are being used. You then can scroll from 0 to 1 less 
than this number (for example, 0 to 7 is 8, the number of 
pixels in a mode 0 line). For GR.2, we scroll 0 to 15; for 
GR.8 you can't fine scroll (a coarse scroll here is the same 
as fine, one pixel line up). 

The chart doesn't give values for every mode that the 
ATARI has. If you look at the row marked DL#, you will 
notice missing #'s 3,4,5,12,& 14. Until we do a special 
tutorial on these modes, you can use the Operating System 
manuals that ATARI sells to explore them. Also missing are 
Graphics modes 9,10 & 11 which were not In U.S. machines 
when this was written. These modes use #15 (GR. 8) with a 
few POKEs into the Operating System to change the way the 
data i s i nterpreted. 


1 GRAPHICS 17:? #6;" EXAMPLE 10'' 

2 FOR W = 1 TO 230: POKE 710,W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 GRAPHICS 0 : LI ST 

20 DL=PEEK(560)+256*PEEK(561 ) 

25 FOR S=9 TO 13 
30 POKE DL + S,34 
40 NEXT S 
45 POKE 53279,8 
50 FOR Y=0 TO 7 

60 POKE 54277,Y:P0SITI ON 2,20:? "THE NUMBER OF PIXELS 
SCROLLED IS ";Y:F0R W=1 TO 50:NEXT W 
70 NEXT Y 

100 C0N=PEEK(53279):IF C0N=6 THEN 1234 

110 GOTO 50 

1234 RUN "D : EX11" 
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EXAMPLE ±1 


Same thing as Example 10, but using the Joystick so you 
can practice moving up or down a pixel at a time. This will 
make sure everyone understands the dlference between fine 
and coarse scrolling. 


10 GRAPHICS 17:? #6;" EXAMPLE 11" 

20 FOR W = 1 TO 230:POKE 710,W 
30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
40 GRAPHICS 3 

50 COLOR 1:PLOT 1,1:DRAWT0 1,10:DRAWT0 10,10:DRAWTO 10,1: 
DRAWT0 1,1 

60 DL=PEEK(560)+256*PEEK(561 ) 

70 FOR S=6 TO 15 
80 POKE DL + S,40 
90 NtXT S 
100 POKE 53279,8 
110 1=0 

120 SI=STICK(0) 

130 IF ST=14 THEN 1=1+1 
140 IF ST=13 THEN 1=1-1 
150 IF I<0 THEN I=0 
160 IF I>7 THEN I=7 
170 POKE 54277,I:? I 

180 C0N=PEEK(53279):IF C0N=6 THEN 200 
190 GOTO 120 
200 RUN "D:EX12" 


EXAMPLE ±2 


There is also a horizontal fine scroll register similar 
to the one for vertical fine scrolling. It is at 54276, 
right next to the other. To use it, look again at the chart. 
POKE the value into each line we want to scroll in the DL. 
For example, the correct value for a GR. 0 line that allows 
a horizontal scroll is 18. Now POKE the amount of clock 
cycles to scroll, 0 to 15 into 54276. No, I am not going to 
explain "cIock cycles". It's exact meaning isn't Important 
here and besides, like so many of the numbers we have been 
discussing, you will learn more if you try It yourself. It 
would be the exceptional person who could write a program to 
scroll without first trying it. Paper descriptions are not 
easy to read. Practice. 




1 GRAPHICS 17:? #6;'' EXAMPLE 12" 

2 FOR W = 1 TO 230 : POKE 710,W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 GRAPHICS 0 : LI ST 

20 DL=PEEK(560)+256+PEEK(561 ) 

30 POKE DL+9,18 
40 POKE DL+11,18 
50 POKE 53279,8 
80 FOR X=0 TO 15 

85 CON=PEEK(53279):IF C0N=6 THEN 1234 

90 POKE 54276,XrPOSITION 2,20:? " ":POSITION 2,20:? X 

95 FOR W=1 TO 100:NEXT W 

100 NEXT X 

110 GOTO 40 

1000 POKE 53279,8 

1010 CON=PEEK(53279):IF CON=6 THEN 1234 
1234 RUN " D : E X1 3 " 


EXAMPLE 13 


We left a few goofs In this example. The LMS byte was 
not changed per the chart from 66 to 98. Also, a jump occurs 
on the screen. The method is just a combination of the two 
previous vertical scroll examples. After the great 
instruction you have been getting, you can figure this one 
out in a few minutes...CAN'T YOU ??? 


10 GRAPHICS 17:? #6;" EXAMPLE 13" 

20 FOR W=1 TO 230:POKE 710,W 
30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
40 GRAPHICS 0 : LI ST 
50 DL=PEEK(560)+256*PEEK(561 ) 

60 DL4=DL+4:DL5=DL+5 
70 NUML=PEEK(DL+4) 

80 NUMH=PEEK(DL+5) 

90 FOR S=6 TO 27 
100 POKE DL+S,34 
110 NEXT S 
120 POKE 53279,8 
130 1=0 
130 1=0 

140 POSITION 35,15:? I:ST=STICK(0) 

150 IF ST=13 THEN 1=1-1 
160 IF ST=14 THEN 1=1+1 

170 IF I>7 THEN POKE 54277,0:I=0:GOTO 220 

180 IF I<0 THEN POKE 54277,7:I=7:GOTO 220 

190 POKE 54277,I :POSITI ON 2,20:F0R W=1 TO 10:NEXT W 

195 C0N=PEEK(53279):IF CON=6 THEN 350 
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200 GOTO 140 

220 IF ST=14 THEN NUML=NUML+40 

230 IF ST=13 THEN NUML=NUML-40 

240 IF NUML<0 THEN 290 

250 IF NUML<256 THEN 310 

26U NUML=NUML-256 

270 NUMH=NUMH+1 

280 GOTO 310 

290 NUML=NUML+256 

300 NUMH=NUMH-1 

310 IF NUMH<0 THEN 140 

320 IF NUMH>255 THEN 140 

330 POKE DL4,NUML:POKE DL5,NUMH 

340 GOTO 140 

350 RUN "D:EX 14" 


EXAMPLE ±^V 

This is the best you can do to combine fine and coarse 
vertical scrollin';. There are no new tricks to learn, just 
look at the sequence of how we put two previous examples 
together. Especially notice lines 190 and 300. This is 
pretty nice for BASIC! This example could be renumbered into 

a subroutine for you to use in programs or. Since 

there are so many possible combinations of scrolling, we 
don't show you each combination. It is easy to combine 
whichever types of scrolling you need. Really! 


10 GRAPHICS 17:? #6;'' EXAMPLE 14" 
20 FOR W=1 TO 230:POKE 710,W 
30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
40 GRAPHICS 0:LI ST 
50 DL = PEEK(560)+256*PEEK(561 ) 

60 DL4=DL+4:DL5=DL+5 
70 NUML=PEEK(DL+4) 

80 N0N=PEEK(559) 

90 NUMH=PEEK(DL+5) 

100 POKE DL+3,98 
110 FOR S=6 TO 27 
120 POKE DL+S,34 
130 NEXT S 
140 POKE 53279,8 
150 1=0:POKE 752,1 

160 REM **** MAIN LOOP ************* 
170 POSITION 35,14:? I:ST=STICK(0) 

180 C0N=PEEK(53279):IF C0N=6 THEN 340 
190 l=l-(ST=13)+(ST=14) 

200 IF I>7 THEN l=0:G0T0 230 
210 IF l<0 THEN l=7:G0T0 230 


-21 - 




220 POKE 54277,I:GOTO 170 

230 NUML=NUML+(ST=14)*40-(ST=13)*40 

240 IF NUML<0 THEN 270 

250 IF NUML<256 THEN 280 

260 NUML=NUML-256:NUMH=NUMH+1:GOTO 280 

270 NUML=NUML+256:NUMH=NUMH-1 

280 IF NUMH<0 THEN 170 

290 IF NUMH>255 THEN 170 

300 POKE 559,0:POKE DL4,NUML : POKE DL5,NUMH:POKE 54277,I:P0KE 
559,34 

310 GOTO 170 
320 POKE 53279,8 

330 CON=PEEK(53279):IF C0N=6 THEN 340 
340 RUN "D : EX 15" 


EXAMPLE 15 

When vertical scrolling, as In the example above (BASIC 
Language only), the screen seems to blink as It scrolls. 
This Is because we are moving a line up 1,2,...7 pixels. 
Then we move It back to 0 and, as quickly as possible, 
coarse scroll It up 8 pixels. This gets the text to move up 
or down, but the "jump" shows on the screen. To hide the 
jump, the screen Is POKEd off (559,0) before the jump and 
POKEd on (559,34) after. Thus, the blink. 

NOW WE GIVE YOU...ASSEMBLY LANGUAGE. 

Geoff Caras, of our little group, wrote a small Assembly 
subroutine to do the POKEs and you can see how quick and 
smooth It works. I won't feel bad if you use this example 
instead of my # 14 In your programs. Just change the 
Graphics to use this example as a subroutine in your 
programs! 


10 GRAPHICS 17:? #6;" EXAMPLE 15" 

20 FOR W=1 TO 230:POKE 710,W 

30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 DIM A$(38):TRAP 60:1=1 

50 READ X:A$(I)=CHR$(X):1=1+1:G0T0 50 

60 GRAPHICS 0:LI ST :P0KE 752,1 

70 POKE 712,148 

80 DL = PEEK(560)+256*PEEK(561 ) 

90 DL4=DL+4:DL5=DL+5 
100 NUML=PEEK(DLt4) 

110 N0N=PEEK(559) 

120 NUMH=PEEK(DL+5) 

130 POKE DL+3,98 
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140 FOR S=6 TO 27 
150 POKE DL+S,34 
160 NEXT S 
170 POKE 53279,8 
180 1=0 

19U POSITION 35,20:? I:ST=STICK(0) 

200 C0N = PEEK(53279) :IF C0N=6 THEN 410 
210 I = I -(ST=13) + (ST=14) 

220 IF I>7 THEN l=0:G0T0 250 

230 IF I<0 THEN I=7:GOTO 250 

240 POKE 54277,I:GOTO 190 

250 NUML=NUML+((ST=14)*40)-((ST=13)*40) 

260 IF NUML <0 THEN 300 

27U IF NUML<256 THEN 310 

280 NUML=NUML-256:NUMH=NUMH+1 

290 GOTO 310 

300 NUML=NUML+256:NUMH=NUMH-1 

310 IF NUMH<0 THEN 190 

320 IF NUMH>255 THEN 190 

330 X=USR(ADR(A$),I,DL4,NUML,DL5,NUMH) 

340 GOTO 190 

330 DATA 160,0,140,47,2,104,104,104 
360 DATA 141,5,212,104,133,225,104,133 
370 DATA 224,104,104,145,224,104,133,225 
380 DATA 104,133,224,104,104,145,224,169 
390 DATA 34,141,47,2,96,0 
400 C0N = PEEK(53279) : IF C0N = 6 THEN 410 
410 RUN "D : EX16" 


EXAMPLE 1£> 

This Is an example of changing Graphics modes by the use 
of the chart. The titles could be brought In from DATA 
statements or disk if you wanted. These examples are now 
POKEing the border color to match the page (you really 
should have one of our Master Memory Maps to learn these 
POKEs). The examples are really starting to be professional 
looking. 


10 GRAPHICS 17:? #6;" EXAMPLE 16" 

20 FOR W=1 TO 230:POKE 710,W 
30 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

40 GRAPHICS 17:POSITI ON 2,10:? #6;"TITLE GOES HERE" 
45 POKE 712,152:POKE 708,1 
50 DL=PEEK(560)+256*PEEK(561) 

60 DL4=DL+4:DL5=DL+5 
70 NUML=PEEK(DL+4) 

80 N0N=PEEK(559) 

90 NUMH=PEEK(DL+5) 
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100 POKE DL+3,102 
110 FOR S=6 TO 27 
120 POKE DL+S,38 
130 NEXT S 
140 POKE 53279,8 
150 1=0:POKE 752,1 

160 REM **** MAIN LOOP ************* 
170 POSITION 35,14:ST=STICK(0) 


EXAMPLE 17 

Another example of scrolling a Graphics line 
down, but this time with the Assembly subroutine, 
the games you can write, or great educational 
Don't fall into the trap of thinking that this 
simple example, and a "real" example will be harder 
have to change is the GRAPHICS statements! 


1 GRAPHICS 17:? #6;" EXAMPLE 17" 

2 FOR W=1 TO 230:POKE 710,W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 
10 DIM A$(38):TRAP 30:1=1 

20 READ X:A $( I)=CHR$(X):1 = 1+1 :GOTO 20 
30 GRAPHICS 3:COLOR 1:PL0T 1,1:DRAWT0 19,19 
40 DL=PEEK(560)+256*PEEK(561 ) 

50 DL4=DL+4:DL5=DLt5 
60 NUML=PEEK(DL+4) 

70 N0N=PEEK(559) 

80 NUMH=PEEK(DL+5) 

90 POKE DL+3,104 
100 FOR S=6 TO 30 
110 POKE DL+S,40 
120 NEXT S 
130 1=0 

135 POKE 53279,8 
140 ST = STICK ( 0) 

145 C0N=PEEK(53279):IF C0N=6 THEN 1234 
150 l=l-(ST=13)+(ST=14) 

160 IF I>7 THEN I=0:G0T0 190 
170 IF I <0 THEN I =7 .-GOTO 190 
180 POKE 54277,I :G0T0 140 
190 NUML = NUML + ((ST=14)* 10)-((ST=13)*10) 

200 IF NUML <0 THEN 240 
210 IF NUML<256 THEN 250 
220 NUML=NUML-256:NUMH=NUMH+1 
230 GOTO 250 

240 NUML=NUML+256:NUMH=NUMH-1 
250 IF NUMH<0 THEN 140 


up and 
Think of 
programs! 
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260 IF NUMH>255 THEN 140 

27 0 X = USR(ADR(A $), I,DL4,NUML,DL5,NUMH) 

28U GOTO 140 

400 DATA 160,0,140,47,2,104,104,104 
410 DATA 141,5,212,104,133,225,104,133 
420 DATA 224,104,104,145,224,104,133,225 
430 DATA 104,133,224,104,104,145,224,169 
440 DATA 34,141,47,2,96,0 
1234 RUN "D:EX18" 


EXAMPLE IS 


No, we aren't going to offer an Assembly program for 
horizontal scrolling. This is a tutorial to learn the 
principals of scrolling. 

This example, our last. Is again combining two previous 
examples to allow continuous scrolling horizontally. The 
POKE to turn off the screen is sti I I needed, so that is the 
blink you see. However, the junk on the screen is because of 
a point we didn't mention yet. Whenever you POKE a Display 
List, you should wait for the time when the TV is blank and 
waiting to do the next screen. Well, this happens 30 times a 
second! BASIC can't go that fast, but if you program in 
Assembly use WSYNC to prevent the flashing junk that this 
BASIC example shows. For the rest of us, we'll wait for some 
more subroutines like example 15. 


There are many details left out of this discussion. For 
example try Poking 559,33 and 559,35. This gives you wide or 
small playfields of 48 or 32 characters width automatically, 
without the trouble we went through earlier for the 256 
width. 


1 GRAPHICS 17:? #6;" EXAMPLE 18'' 

2 FOR W=1 TO 230:POKE 710,W 

3 FOR ZR=1 TO 10:NEXT ZR:NEXT W 

4 ? #6;" LAST EXAMPLE":FOR W=1 TO 200:POKE 710,W:NEXT W 
10 TRAP 40000:TRAP 300 

15 PI06=PEEK(106) 

20 N0N=PEEK(559):GRAPHICS 0:G0TO 50 

40 M=M+(ST=11)*5-(ST=7)*5:Y=DL4+M:P0KE 559,0:F0R L=0 TO 72 
STEP 3:POKE X+L,Y:NEXT L:P0KE 54276,K:P0KE 559,NON 
45 GOTO 130 

50 POKE 106,PEEK(106)-24:P0KE 766,1 

60 GRAPHICS 0:LI ST 

70 DL = PEEK(560)+256*PEEK(561 ) 

80 P560 = PEEK(560):P561=PEEK(561 ) 
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90 DL4=PEEK(DL+4):DL5=PEEK(DL+5) 

100 FOR 1=1 TO 25 :13=3*1 :POKE DL+I 3,82:POKE DL + 1+I 3,DL4:POKE 
DL+2+I 3,DL5+I :NEXT I 

110 POKE DL+78,65:POKE DL+79,P560:POKE DL+80,P561 
120 K=0:X=DL+4:M=0 
125 POKE 53279,8 

130 POKE 54276,K:ST=STICK(0):K=K-(ST=11)+<ST=7) 

135 C0N=PEEK(53279):IF C0N=6 THEN 1234 
14U IF K>15 THEN K = 0:GOT0 40 
150 IF K<0 THEN K = 15:G0T0 40 
160 GOTO 130 

300 GRAPHICS 0:? "YOU WENT TO FAR...PRESS RESET AND 

TYPE RUN_PRESS RETURN." 

310 END 

1234 POKE 106,P106:GRAPHICS 0:POKE 709,0 

1235 ? " THANK FOR BUYING OUR TRICKY TUTORIALS_";:GOTO 

1 235 


so 


I appreciate that all of you students have stayed awake 
long. I'll see you in my next Tricky Tutorial. BYEI 
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PAGE FLIPPING 


Educational Software 


Page Flipping is a set of simple 
programs designed to teach those new to 
the ATARI how to store Information in 
memory and then bring It back on the 
screen instantly! With the two methods 
taught here, even a new programmer can 
learn to do simple animation, or present 
nice slide-like displays. The simplest 
of these examples has only 12 short 
I i nes of basic code! 

The person using this lesson should 
be familiar with BASIC programming so 
that he or she can read the code that is 
included. Since the program is not 
protected, the user is encouraged to try 
their own modifications inorder to gain 
a greater perspective of the art of 
flipping pages of memory. 

The program is split up into smaller 
pieces that will load and run on 
ATARI(tm) 400/800 computers with 16k RAM 
for cassette users and 24k RAM for those 
using disk. 


presents 


TRICKY TUTORIAL #3 

PAGE 

FLIPPING 


Educational Software inc. 
4565 Cherryvale 
Soquel, CA 95073 
(408) 476-4901 



TRICKY TUTORIAL #3 



Robin Sherer 


No doubt some of you hesitated before ordering a program 
to "flip pages". For this reason I want to start by assuring 
you that once you learn either of the two simple methods 
taught here, your programs will look and run much nicer. 

Not very long ago, I had to learn the method of 
flipping screens. Since I still remember how confusing it 
was at first, only the material you need Is presented here. 
A few details have been left out because only those trying 
to become experts will care, and they will have to read the 
technical manuals anyway. The style of the manual is 
informal mostly because I have never heard a good 
explainatton for instructions that are written in a cold 
manner. We bought our computers to learn and have fun!. 


MOW TO LOAD 


TAPE. . . . 

Place the tape In your recorder, label side up, and 
insert your BASIC Cartridge. Make sure the tape is rewound, 
and reset the counter to zero. Push PLAY on the recorder, 
type RUN"C:", and press RETURN. If the program won't start 
to load, try positioning the tape forwards or backwards a 
little. The easiest way to find the beginning is to listen 
to the "noise" on the tape with a regular recorder. When you 
find the steady tone, you have the beginning of the program. 
We recommend you write down the number on your recorder's 
counter as each program starts, this will make it easier to 
find each part later on. 


DISK.... 

To load and run the disk, first turn on your disk drive. 
When the busy light goes out, place the disk into the drive, 
with the BASIC Cartridge in place. The program will load 
each part and run by itself. 


Any defective tapes or disks should be returned to: 
Educational Software inc. 

4565 Cherryvale 
Soquel, CA 95073 
(408) 476-4901 

©1981 by Santa Cruz Educational Software 
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What: ± 


The idea of flipping pages is somewhat unique in small 
home computers. You're lucky, the ATARI just happens to be 
able to do page flipping. The reason for this is that the 
ATARI allows both its DISPLAY LIST and DISPLAY DATA to be 
stored in any free area of memory. A Display List is the 
small set of instructions every computer needs to tell 
itself how to put the display data on the screen. This is 
especially important for us to learn since the ATARI 
computers offer so many types of graphics modes. This 
special capability means that you can store the information 
for numerous pages (TV screens) of graphics and/or text and 
then later, in your program, go to any of these pages 
instantly. This makes things look much more professional. 


—BASIOS- 

First, we are going to cover some basics. Memory Is 
stored in something called RAM, which stands for random 
access memory. This is because you can either read or write 
to any place within it. Usually discussion of memory is in 
terms of bytes. For example, your memory(RAM) may consist of 
16k,24k,32k,40k , or 48k bytes. Remember that Ik is actually 
1024 bytes. Confused? GOOD! Then you may appreciate the fact 
that to flip screens of data we are going to just move down 
in memory by increments of 256 bytes at a time. These 
increments are called "pages" (ain't life simple???). So 4 
pages is 4*256 = 1024 bytes = Ik . The last sentence is all 
you have to remember. Four pages of memory =1k bytes of 
memory. Oh yes, I should tell you that "k" is the symbol for 
1000 . 

The term flipping pages would now become confusing - we 
are NOT flipping 256 bytes at a time. For this reason we 
will refer to the process as flipping screens or 
disp I ays, i e., the stuff you see on the TV screen at any one 
time. 

There will be two methods shown in our examples. DON'T 
JUST VIEW THEM. COPY THEM TO ANOTHER DISK OR TAPE AND MODIFY 
THEM FOR YOUR OWN USE. WE WANT YOU TO COPY OUR SOFTWARE FOR 
USE IN YOUR OWN PROGRAMS. EACH EXAMPLE IS SET UP FOR GENERAL 
PURPOSES, SO JUST SUBSTITUTE YOUR OWN TEXT OR GRAPHICS. IF 
YOU HAVE 32K OR MORE OF MEMORY, CHANGE TO HIGH RES, GRAPHICS 
MODE 8 AND ADD TEXT AS WELL AS GRAPHICS. The method and 
examples all work, but could be much better....especia I Iy if 
written for more memory than the small amount this lesson 
runs on (don't brag about your 48k machine. My ATARI has 
160k 1 ) 
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DISPLAY LIST 2 


SCREEN DATA 3 


DISPLAY LIST 3 


AS MANY MORE SCREENS AS YOU HAVE ROOM FOR. 


YOUR BASIC PROGRAM and OTHER STUFF. 


BOTTOM OF MEMORY 
Fig. 1 


- 3 - 





EXAMPLE 1 


see It draw out some 
a new set of I Ines i s 
seem to appear and 


Run Example 1. Notice that you can 
random lines, then they disappear and 
drawn out. Then...these two screens 
disappear, first one then another. 
Here's how it works: 


10 GRAPHICS 6 
12 GOSUB 4000 
15 TRAP 20 

20 COLOR 1:FOR 1=1 TO 20:C0L0R 2*RND(4):DRAWTO 140*RND(4),70 
*RND(9):NEXT I 

25 ? "THIS IS FLIPPING BETWEEN TWO AREAS OF MEMORY. PRESS 
RETURN TO CONTINUE." 

30 A=PEEK(106) 

40 DLI STL 1=PEEK(560):DLISTH1=PEEK(561 ) 

50 POKE 106,A-32 

60 GRAPHICS 6 

61 GOSUB 4000 

70 DLISTL2=PEEK(560):DLISTH2=PEEK(561) 

75 TRAP 80 

80 COLOR 1:FOR 1=1 TO 20:C0L0R 2*RND(4):DRAWTO 140*RND(4),70 
*RND(9):NEXT I 

85 ? "THIS IS FLIPPING BETWEEN TWO AREAS OF MEMORY. PRESS 
RETURN TO CONTINUE." 

86 POKE 764,255 

90 POKE 561,DLISTH1:F0R W=1 TO 2:NEXT W:POKE 561,DLISTH2:IF 
PEEK(764)=12 THEN 110 
100 GOTO 90 

110 POKE 106,A:RUN "D:NEXT1" 

4000 X=PEEK(16):IF X=128 THEN 4020 
4010 POKE 16,X-128:POKE 53774,X-128 
4020 RETURN 


Lines 10 to 25 draw a screen just like normal using COLOR, 
PLOT, and PRINT commands (See your BASIC referance manual 
for these commands). 

Line 30 stores the original top of memory (in number of 256 
byte pages) read from location 106 using the PEEK command. 

Line 40 stores the two numbers that locate the Display List. 
Remember that It takes two eight bit numbers to address all 
of the computers memory. The LOW part can hold from 0 to 255 
and the HIGH part holds from 0 to 255 (times 256)...again 
see your manual or our MASTER MEMORY MAP. We will only use 
the part of the address In location 561. This is because we 
are moving memory down in whole page increments and 561 
holds the number of whole pages. We left In the low part, in 
case you want to experiment with your own ideas. 
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NOTE 


Often I leave out pieces of code that you may not see 
mentioned in the manual. You should assume that it either is 
something you will see the need for later, or something 
needed just to make all the examples run together smoothly. 

Line 50 says "the top of memory is located down in RAM 
by 32 pages (8k bytes) from the previous value. This Is more 
than is needed for this example. The extra amount will allow 
you room to add more screens later when you come back to 
this example to experiment with your own changes.... and you 
will come back, won't you? 

Line 60 to 85 again draw some graphics just like normal. 
The computer looks at location 106 and sees the value we put 
there. It is thus "fooled" Into placing the new Display List 
and data starting 32 pages lower than it otherwise would 
have. Actually,the amount of pages you go down should 
correspond to the amount of memory the graphics modes you 
are using requires. Look in the first page of the BASIC 
Manual's Graphics section to see how much you need. We used 
mode 6, so 2k or 8 pages would have been enough. This way, 
though, we left room for you to easily copy this program and 
substitute your own graphics! 

Line 70 stores the location or address of this second 
Display List. You can do this before (like here, line 70) or 
after the graphics statements. The location will be used to 
flip the screens later. 


Line 90 then does the flipping by just POKEing 561 with 
the address (high part only!) of the first Display List, 
then the second, then the first, etc. This says "use this 
Display List..no this one...no use the fIrst..etc.". 

ANOTHER NOTE- 

You can see in the program code In Example 1 it is line 
110 that POKEs 106 back to the original value. If you are 
going to go on and use your computer after confusing it like 
this, you had better tell it what the real top of memory is. 
If, on the other hand, you are going to turn it off after 
our program is finished, don't bother. Any time you power up 
or press RESET, the computer will store the correct value in 
1 06 . 


Also, while running our program, don't 
BREAK unless It crashes (it shouldn't, 
example stops then press RESET and type 
RETURN. Of course, you should press 
experiment with each example after you have 
program at least once. This is how you will 


press RESET or 
but... ) . If any 
RUN and press 
RESET and then 
seen the entire 
learn! 
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EXAMPLE Z2L 


This example is made out of Example 1 to show you how to 
expand the basic idea of changing screens. Here we set up 
FOUR Display Lists and print four simple messages on the 
screen. As you press a button the message appears instantly! 
If you think about it, you will realize that there Is no 
diference in flipping between four one line messages on a 
page, or four completely filled pages of text. Each time you 
press a button, another area of memory is displayed on the 
screen. The one line messages were just to keep the program 
simple for you to study. Please add many more lines of text 
to this example and see what we mean. You just put more 
words between the quotes In lines 20, 70, 110, & 150. 

Lines 10 to 40 write text and store the needed values 
for Display List one (DL1). 

Lines 50 to 80 POKES 106 down 8 pages (2k, more than 
enough for GR.0), writes more text, and stores these new 
values. 

Lines 90 to 120 same thing another 8 pages down in 
memory, but different text. 

Lines 130 to 160 same thing again for a fourth screen! 

Lines 168 to 185 look for you to press keys 1 to 4 (or 
whatever!) so that lines 190 to 220 can tell the computer 
which of the four Display List you previously created to now 
use. The test for CH=12 is to see if you decided to go on to 
something else by pressing return. The POKE of 255 to 764 
clears the location that holds the Internal code for the 
last key pressed. The variable CH on line 170 will tell the 
system which key you just pressed (if any). 

NOTE 

You can put In your own text or have the computer read 
in the text from the keyboard or disk and place the first 
960 bytes (the size of GR.0) in page one, the next 960 In 
page 2, etc. The way to read in data from keyboard or disk 
is explained in your reference manuals. 


5 TRAP 10 
10 GRAPHICS 0 

20 POSITION 4,10:? "THIS IS PAGE 1.'^POSITION 2,20:? "PRESS 
1,2,3 OR 4 FOR THAT PAGE." 

25 ? "PRESS RETURN TO CONTINUE." 

30 A=PEEK(106) 



40 DLL1=PEEK(560):DLH1=PEEK(561 ) 

45 REM ****************************** 
50 POKE 106,A-8 
60 GRAPHICS 0 

70 POSITION 10,10:? "THIS IS PAGE 2." 

1 ,2,3 OR 4 FOR THAT PAGE.» 

75 ? "PRESS RETURN TO CONTINUE." 

80 DLL2 = PEEK(560):DLH2 = PEEK(561 ) 

85 REM ****************************** 
90 POKE 1 06 , A-16 
100 GRAPHICS 0 

110 POSITION 15,10:? "THIS IS PAGE 3. 

1,2,3 OR 4 FOR THAT PAGE." 

115 ? "PRESS RETURN TO CONTINUE." 

120 DLL3=PEEK(560):DLH3 = PEEK(561 ) 

125 REM ***************************** 
130 POKE 1 06,A-24 
140 GRAPHICS 0 

150 POSITION 20,10:? "THIS IS PAGE 4. 

1,2,3 OR 4 FOR THAT PAGE." 

155 ? "PRESS RETURN TO CONTINUE." 

160 DLL4 = PEEK(560):DLH4 = PEEK(561 ) 

165 REM ***************************** 
168 POKE 764,255:GOSUB 4000 
170 CH=PEEK(764) 

180 IF CH=31 THEN 190 

181 IF CH=30 THEN 200 

182 IF CH=26 THEN 210 

183 IF CH=24 THEN 220 

184 IF CH=12 THEN 230 

185 GOTO 170 

190 POKE 560,DLL 1 :POKE 561,DLH1:GOTO 
200 POKE 560,DLL2:POKE 561,DLH2:GOTO 
210 POKE 560,DLL3:POKE 561,DLH3:GOTO 
220 POKE 560,DLL4:POKE 561,DLH4:GOTO 
230 POKE 106,A:RUN "D:NEXT2" 

4000 X=PEEK(16):IF X=128 THEN 4020 
4010 POKE 16,X-128:POKE 53774,X-128 
4020 RETURN 


POSITION 2,20:? "PRESS 


":POSITI ON 2,20:? "PRESS 


":POSITI ON 2,20:? "PRESS 


170 

170 

170 

170 


EXAMPLE 3 


Example 3 is the same as Example 2, but with graphics 
instead of text. Although it will seem obvious to some of 
you, all you need to do is substitute graphics type commands 
for the text commands of Example 2. We used four simple bar 
graphs, but you could draw very complicated pictures if you 
wanted. Remember that the material that you place on a 
screen doesn't effect the basic method we are using. Even if 
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you fill up the screen, the computer just keeps looking at 
the Display List to see where to get It's screen data. No 
more watching complicated pictures drawn out every time you 
need them. Now you can store them ahead of time in memory. 


5 TRAP 10 
10 GRAPHICS 5 

15 COLOR 1:PLOT 5,5:DRAWT0 5,35:DRAWT0 75,35 
20 COLOR 2:PLOT 10,34:DRAWTO 10,25:DRAWTO 5,25:POSITI ON 5,34 
:POKE 7 65,2:X I 0 18,#6,0,0,"S:" 

25 ? "PRESS 1,2,3, OR 4 FOR BAR GRAPHS OF":? "THE YEARS 1981, 

1982,1983 OR 1984.":? "PRESS RETURN TO GO ON." 

30 A=PEEK(106) 

40 DLL1=PEEK(560):DLH1=PEEK(561 ) 

45 REM ****************************** 

50 POKE 106,A-8 
60 GRAPHICS 5 

65 COLOR 1:PLOT 5,5:DRAWT0 5,35:DRAWT0 75,35 
70 COLOR 3:PLOT 15,34:DRAWT0 15,20:DRAWT0 10,20:POSITI ON 10, 
34 : POKE 765,3:XI0 18,#6,0,0,"S:" 

75 ? "PRESS 1,2,3, OR 4 FOR BAR GRAPHS OF":? "THE YEARS 1981, 

1982,1983 OR 1984.":? "PRESS RETURN TO GO ON." 

80 DLL2=PEEK(560):DLH2=PEEK(561) 

85 REM ****************************** 

90 POKE 106 , A-16 
100 GRAPHICS 5 

105 COLOR 1:PLOT 5,5:DRAWT0 5,35:DRAWT0 75,35 
110 COLOR 1:PLOT 20,34:DRAWT0 20,15 :DRAWT0 15,15 : POS I TI ON 15, 
34:POKE 765,1 :X I 0 18,#6,0,0,"S:" 

115 ? "PRESS 1,2,3, OR 4 FOR BAR GRAPHS OF":? "THE YEARS 1981 

1982,1983 OR 1984.":? "PRESS RETURN TO GO ON." 

120 DLL3=PEEK(560):DLH3=PEEK(561) 

125 REM ***************************** 

130 POKE 106,A-24 
140 GRAPHICS 5 

145 COLOR 1:PLOT 5,5:DRAWT0 5,35:DRAWTO 75,35 
150 COLOR 2 : PLOT 25,34:DRAWT0 25,10:DRAWTO 20,10:POSITI ON 20, 
34 : POKE 765,2:XI0 18,#6,0,0,"S:" 

155 ? "PRESS 1,2,3, OR 4 FOR BAR GRAPHS OF":? "THE YEARS 1981 

1982,1983 OR 1984.":? "PRESS RETURN TO GO ON." 

160 DLL4=PEEK(560):DLH4=PEEK(561) 

165 REM ***************************** 

168 POKE 764,255:GOSUB 4000 
170 CH = PEEK(764) 

180 IF CH=31 THEN 190 

181 IF CH=30 THEN 200 

182 IF CH=26 THEN 210 

183 IF CH=24 THEN 220 

184 IF CH=12 THEN 230 

185 GOTO 170 
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190 POKE 5b0,DLL 1 : POKE 561,DLH1:GOTO 170 
200 POKE 560,DLL2:POKE 561,DLH2:GOTO 170 
210 POKE 560,DLL3 :POKE 561,DLH3:GOTO 170 
220 POKE 560,DLL4 : POKE 561,DLH4:GOTO 170 
230 POKE 106,A:RUN "D:NEXT3" 

4000 X=PEEK(16):IF X=128 THEN 4020 
4010 POKE 16,X-128:POKE 53774,X-128 
4020 RETURN 


EXAMPLE 4 

This example draws a shape on each page. Then, by 
flipping screens you can animate the shape! Remember that 
any set of data can be used for the shape so why not copy 
this program to your disk/cassette and try your own shapes. 
Another idea would be to draw a business logo and move it 
across a chart of profits. Use your imagination, or just 
play if you like. The posibilities are endless! 


3 GRAPHICS 0 
5 TRAP 10 
10 GRAPHICS 5 
15 COLOR 1 

20 READ X,Y:IF X=0 THEN 30 
25 PLOT X,Y:GOTO 20 

27 DATA 9,23,10,23,11,23,9,24,10,24,11,24,10,25,8,26,9,26, 

10.26.11.26.12.26.7.27.9.27.10.27.11.27.13.27 

28 DATA 6,28,9,28,10,28,11,28,14,28,9,29,10,29,11,29,9,30, 
10,30,11,30,9,31,11,31,8,32,12,32,7,33,13,33,7,34,13,34 

29 DATA 7,35,8,35,9,35,13,35,14,35,15,35,0,0,0 

30 A=PEEK(106) 

35 ? " HUP!" 

40 DLL1=PEEK(560):DLH1=PEEK(561) 

45 REM ****************************** 

50 POKE 106,A-8 
60 GRAPHICS 5 
63 COLOR 1:RESTORE 77 
65 ? " TWO!" 

70 READ X,Y:IF X=0 THEN 80 
75 PLOT X,Y:GOTO 70 

77 DATA 19,23,20,23,21,23,19,24,20,24,21,24,20,25,18,26,19, 

26.20.26.21.26.22.26.17.27.19.27.20.27.21.27.23.27 

78 DATA 17,28,19,28,20,28,21,28,23,28,19,29,20,29,21,29,19, 
30,20,30,21,30,19,31,21,31,19,32,21,32,18,33,22,33 

79 DATA 18,34,22,34,18,35,19,35,20,35,22,35,23,35,24,35,0,0 

80 DLL2=PEEK(560):DLH2=PEEK(561) 

85 REM ****************************** 
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90 POKE 106,A-16 
100 GRAPHICS 5 
103 ? " THREE!" 

105 COLOR 1:RESTORE 117 
110 READ X, Y : I F X=0 THEN 120 
115 PLOT X+20,Y:GOTO 110 

117 DATA 9,23,10,23,11,23,9,24,10,24,11,24,10,25,8,26,9,26, 

10.26.11.26.12.26.7.27.9.27.10.27.11.27.13.27 

118 DATA 6,28,9,28,10,28,11,28,14,28,9,29,10,29,11,29,9,30, 
10,30,11,30,9,31,11,31,8,32,12,32,7,33,13,33,7,34,13,34 

119 DATA 7,35,8,35,9,35,13,35,14,35,15,35,0,0,0 

120 DLL3=PEEK(560):DLH3=PEEK(561) 

125 REM a***#*##*#***##*#*#####****#* 

130 POKE 106,A-24 
140 GRAPHICS 5 
143 ? " FOUR!" 

145 COLOR 1:RESTORE 157 
150 READ X,Y:IF X=0 THEN 160 
155 PLOT X+20,Y:GOTO 150 

157 DATA 19,23,20,23,21,23,19,24,20,24,21,24,20,25,18,26,19, 

26.20.26.21.26.22.26.17.27.19.27.20.27.21.27.23.27 

158 DATA 17,28,19,28,20,28,21,28,23,28,19,29,20,29,21,29,19, 
30,20,30,21,30,19,31,21,31,19,32,21,32,18,33,22,33 

159 DATA 18,34,22,34,18,35,19,35,20,35,22,35,23,35,24,35,0,0 

160 DLL4 = PEEK(560):DLH4 = PEEK(561 ) 

165 REM a#**#########***##*#####*#*## 


168 POKE 764,255 
170 CH=PEEK(764) 

180 IF CH=31 THEN 190 

181 IF CH=30 THEN 200 

182 IF CH=26 THEN 210 

183 IF CH=24 THEN 220 

184 IF CH=12 THEN 230 

185 GOTO 170 

190 POKE 560 , DLL 1 : POKE 561 ,DLH1 : GOTO 
200 POKE 560,DLL2:POKE 561,DLH2:GOTO 
210 POKE 560,DLL3:POKE 561,DLH3:GOTO 
220 POKE 560,DLL4:POKE 561,DLH4:GOTO 
230 POKE 106,A:RUN "D :NEXT4" 


170 

170 

170 

170 


EXAMPLE 5 


Notice line 7 which stores the value held In memory 
location 559. Then line 13 POKEs 559 with a 0. Well, this 
neat trick turns off the screen so that the pictures are 
drawn without your seeing them. It also speeds up the 
computer by about 30 % depending on graphics mode. Want to 
know why? Send us $40. and we..., oh well. I'll tell you. 
Location 559 controls the ANTIC Chip which puts the video on 
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the screen. Use the original value, stored In "NON" to turn 
it on. Use 0 to turn it off. Line 169 is where we turn the 
display back on. 


THIS WORKS FOR ANY PROGRAM! 


5 TRAP 10 
7 N0N=PEEK(559) 

10 GRAPHICS 5 
13 POKE 559,0 
15 COLOR 1 

20 READ X,Y:IF X=0 THEN 30 
25 PLOT X,Y:GOTO 20 

27 DATA 9,23,10,23,11,23,9,24,10,24,11,24,10,25,8,26,9,26, 

10.26.11.26.12.26.7.27.9.27.10.27.11.27.13.27 

28 DATA 6,28,9,28,10,28,11,28,14,28,9,29,10,29,11,29,9,30, 
10,30,11,30,9,31,11,31,8,32,12,32,7,33,13,33,7,34,13,34 

29 DATA 7,35,8,35,9,35,13,35,14,35,15,35,0,0,0 

30 A=PEEK(106) 

35 ? " HUP!" 

40 DLL1=PEEK(560):DLH1=PEEK(561) 

45 REM ****************************** 

50 POKE 106,A-8 
60 GRAPHICS 5 

62 POKE 559,0 

63 COLOR 1:RESTORE 77 

65 ? " TWO!" 

70 READ X,Y:IF X=0 THEN 80 
75 PLOT X,Y:GOTO 70 

77 DATA 19,23,20,23,21,23,19,24,20,24,21,24,20,25,18,26,19, 

26.20.26.21.26.22.26.17.27.19.27.20.27.21.27.23.27 

78 DATA 17,28,19,28,20,28,21,28,23,28,19,29,20,29,21,29,19, 
30,20,30,21,30,19,31,21,31,19,32,21,32,18,33,22,33 

79 DATA 18,34,22,34,18,35,19,35,20,35,22,35,23,35,24,35,0,0 

80 DLL2=PEEK(560):DLH2=PEEK(561) 

85 REM ****************************** 

90 POKE 106,A-16 
100 GRAPHICS 5 

102 POKE 559,0 

103 ? " THREE!" 

105 COLOR 1sRESTORE 117 
1 10 READ X,Y:IF X = 0 THEN 120 
115 PLOT X+20,Y:GOTO 110 

117 DATA 9,23,10,23,11,23,9,24,10,24,11,24,10,25,8,26,9,26, 

10,26,11,26,12,26,7,27,9,27,10,27,11,27,13,27 

118 DATA 6,28,9,28,10,28,11,28,14,28,9,29,10,29,11,29,9,30, 
10,30,11,30,9,31,11,31,8,32,12,32,7,33,13,33,7,34,13,34 

119 DATA 7,35,8,35,9,35,13,35,14,35,15,35,0,0,0 

120 DLL3 = PEEK(560) :DLH3 = PEEK(561 ) 

125 REM ***************************** 



130 POKE 106,A-24 
140 GRAPHICS 5 

142 POKE 559,0 

143 ? " FOUR!" 

145 COLOR 1:RESTORE 157 
150 READ X,Y:IF X=0 THEN 160 
155 PLOT X+20,Y:GOTO 150 

157 DATA 19,23,20,23,21,23,19,24,20,24,21,24,20,25,18,26,19, 
26,20,26,21,26,22,26,17,27,19,27,20,27,21,27,23,27 

158 DATA 17,28,19,28,20,28,21,28,23,28,19,29,20,29,21,29,19, 
30,20,30,21,30,19,31,21,31,19,32,21,32,18,33,22,33 

159 DATA 18,34,22,34,18,35,19,35,20,35,22,35,23,35,24,35,0,0 

160 DLL4=PEEK(560):DLH4=PEEK(561) 

165 REM ***************************** 

168 POKE 764,255 

169 POKE 559,NON 

170 CH=PEEK(764) 

180 IF CH=31 THEN 190 

181 IF CH=30 THEN 200 

182 IF CH=26 THEN 210 

183 IF CH=24 THEN 220 

184 IF CH=12 THEN 230 

185 GOTO 170 

190 POKE 560 ,DLL 1:POKE 561,DLH1:GOTO 170 
200 POKE 560,DLL2:POKE 561,DLH2:GOTO 170 
210 POKE 560,DLL3:POKE 561,DLH3:GOTO 170 
220 POKE 560,DLL4:POKE 561,DLH4:GOTO 170 
230 POKE 106 , A : RUN "D : NEXT5" 


METHOD 2 

This method differs only slightly from the first, but 
allows you more control of what goes on. The examples will 
explain the differences. 


EXAMPLE <£* 


Instead of using a variable called "A", we use "P106" to 
store the original # of pages in your memory. This will be 
more meaningful to us. P106 stands for the value to POKE 
into location 106. 


4 P106=PEEK(106) 

5 ? "t":? "AT PAGE ONE!":? "PRESS 1 OR 2 FOR THAT PAGE." 
7 ? "PRESS RETURN TO GO ON." 
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10 DP=PEEK(560)+PEEK(561)*256 
12 POKE 16,64 

15 SAV=PEEK(DP + 5) 

16 POKE 106,PI 06-4 :POKE 89,SAV-4 

17 ? "AT PAGE TWO!":? "PRESS 1 OR 2 FOR THAT PAGE.":? "PRESS 
RETURN TO GO ON." 

30 POKE 764,255:TRAP 80 
33 CH=PEEK(764) 

35 IF CH=31 THEN 45 

36 IF CH=12 THEN 60 

37 IF CH=30 THEN 40 

38 GOTO 33 

40 POKE DP+5,SAV-4 
43 GOTO 33 
45 POKE DP+5,SAV 
55 GOTO 33 

60 POKE 106,P106:RUN "D:NEXT6" 


Line 10 stores the location of the start of the DL as 
one decimal number. Line 15 store the number we are after. 
It comes 5 bytes after the start of the DL, so we PEEK at 
DL+5, ie. It Is the sixth number In the DL. 

Line 16 POKEs memory location 106 down by a number of 
pages (4 In this case). This line also stores a new value we 
need: location 89. This one Is a copy of the value In DP+5 
which tells the system where the start of the display data 
is. The computer looks at the DL whenever a GRAPHICS command 
is used, and stores that value here so that it will know 
where the start of your data Is. After a Graphics call, we 
are free to change this number (In 89) to "fool" the 
computer Into doing what we want. After POKEing both of 
these locations down far enough, we now write some text to 
the new area of memory on line 17. This could be done many 
times if you have enough RAM. 

Now when lines 30 to 38 choose which screen you want, lines 
40 or 45 just change the value In the first Display List 
that controls where the first DL gets it's data from. We 
don't care about a second (or 3rd or 4th...) Display List as 
in Example 1’. 


SO WHAT? 

Well, now by just changing one value at the start of the 
first Display LIst+5 (DP+5), you can tell the system to go 
display different data from all over memory. This change 
could be easily controlled with a joystick as we do in our 
Scrolling Program, Tricky Tutorial #2. 

Also, you might want to look at one screen while you are 
drawing several others; for example while a decision was 
being made about options on the first. 
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EXAMPLE 7 


This does what we just suggested. You can not only look 
at two screens (press 0 for screen 1 and 4 for screen two), 
but by Inputing other positive numbers you can look down in 
memory. By inputing negative numbers, you look up in memory 
until you reach the top. The stuff you see on the screen 
will be the alpha-numeric equivalent of the BASIC program, 
your screen data, the Operating System or whatever you are 
looking at. The only changes to this program are: 

Lines 20 & 33 input a number. 

Line 35 tests that number to see If It Is too big. 

Line 40 redirects the DL as before, but with your value 
Instead of the previous fixed value of 4. 


4 P106=PEEK(106) 

5 ? "t":? "AT PAGE ONE!":? "PRESS START AND RETURN AT THE 
SAME TIME TO GO ON.":? "PRESS BETWEEN 0 AND ";P106-5; 

7 ? " TO LOOK AT MEMORY IN 1/4 PAGE SCREEN INCREMENTS.":? 

"THEN PRESS RETURN. REPEAT AS DESIRED." 

10 DP=PEEK(560)+PEEK(561)*256 
12 POKE 16,64 

15 SAV=PEEK(DP+5) 

16 POKE 106,P106-4:POKE 89,SAV-4 

17 ? "AT PAGE TWO!":? » PRESS START AND RETURN AT THE SAME 
TIME TO GO ON" 

20 DIM A(2) 

25 POKE 53279,8 

30 TRAP 30:Z=PEEK(53279):IF Z=6 THEN 80 
33 INPUT A 

35 IF AXP106) THEN 60 
40 POKE DP+5,SAV-A 
55 GOTO 30 

60 ? "NUMBER TOO LARGE, MUST BE LESS THAN";PI 06-5:? "WE ARE 
NOW AT 4 PAGES DOWN IN MEMORY" 

65 POKE DP+5,SAV-4:POKE 89,SAV-4 
70 GOTO 30 

80 TRAP 40 000:POKE 1 06,P106:POKE 89,SAV:P0KE DP + 5,SAV:RUN 
"D:NEXT7" 
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EXAMPLE 0 


The last example Is exactly the same as Example 7, 
except it looks at memory using a colorful graphics 
viewpoint of the data there. Be sure to try negitive numbers 
on the last two examples also. Since the program is designed 
to look up or down in memory, the negitive numbers look down 
while the positives look higher in RAM. You can look most 
anywhere from within the BASIC Cartridge to the data flowing 
in and out of the Operating System (try large negative 
numbers for this)...See if you can find an area that is 
changing for real special effects. 


4 PI06=PEEK(106) 

5 GRAPHICS 5:COLOR 1:PL0T 10,10:DRAWTO 10,20:DRAWTO 40,20: 
DRAWTO 40,10:DRAWTO 10,10 

10 DP1=PEEK(560)+PEEK(561)*256 
12 POKE 16,64 

15 SAV1=PEEK(DP1+5) 

16 POKE 106,P106-8 

17 GRAPHICS 5:COLOR 2:PL0T 20,20:DRAWTO 20,30:DRAWT0 30,30: 
DRAWTO 30,20:DRAWTO 20,20 

20 DIM A(2) 

21 DP2=PEEK(560)+PEEK(561)*256 

22 SAV2=PEEK(DP2+5) 

25 POKE 53279,8 

27 ? "PRESS START AND RETURN TOGETHER TO GO ON." 

30 TRAP 30:Z=PEEK(53279):IF Z=6 THEN 80 
33 INPUT A 

35 IF AXP106) THEN 60 

40 REM POKE DP1+5,SAV-A 

41 POKE DP2+5,SAV1-A 
55 GOTO 30 

60 ? "NUMBER TOO LARGE, MUST BE LESS THAN";PI 06-5:? "WE ARE 
NOW AT 4 PAGES DOWN IN MEMORY." 

65 POKE DP+5,SAV-4:P0KE 89,SAV-4 
70 GOTO 30 

80 TRAP 40000:POKE 1 06,P106:POKE 89,SAV:P0KE DP + 5,SAV:RUN 
"D:NEXT8" 


THAT'0 IT 

Just take any of our examples and try to modify them so 
that you can both understand the methods and make your 
programs look and run much cleaner. I hope you find many new 
uses for PAGE FLIPPING. Please write and tell me about your 
accomplishments using techniques In TRICKY TUTORIALS. BYE!! 
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TRICKY TUTORIAL #4 


BnaastPcaflE, 
Qt-gcmm 0 






BASICS OF ANIMATION 


) 


Basics of Animation is a set of 
simple programs designed to teach those 
new to computers how to make shapes 
appear to move around on the screen. The 
three methods demonstrated are animation 
using the PRINT COMMAND, PLOT COMMAND, 
and ATARI'S great PLAYER/MISSILE 
GRAPHICS. 

The person using this lesson should 
be familiar with BASIC programming so 
that he or she can read the code that is 
included. Since the program is not 
protected, the user is encouraged to try 
their own modifications inorder to gain 
a greater perspective of the art of 
animation. 

This program requires 16k of memory 
for TAPE users and 24k for those using 
DISK. 
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4565 Cherryvale 
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TRICKY TUTORIAL #4 


BASICS OF ANIMATION 

by 

Robin Sherer 


TAPE. .. 


HOW TO LOAD 


Place the tape in your recorder, label side up. Make 
sure the tape Is rewound, and the BASIC Cartridge is In 
place. Also, reset the counter to zero. Push PLAY on the 
recorder and type RUN"C: and press RETURN. If the program 
won't start to load, try positioning forward or backward a 
little. The easiest way to find the beginning is to listen 
to the "noise” on the tape with a regular recorder. When you 
find the steady tone, you have the beginning of the program. 
We recommend you write down the number on your recorder's 
counter as each program example starts. This will make It 
easier to find each part later on. 


DISK... 

To load and run the disk, first turn on your disk drive. 
When the busy light goes out, place the disk in the drive. 
Now turn on the computer, with the BASIC Cartridge in place. 
The program will load each part and run by Itself. 


Any defective tapes or disks should be returned to: 

Educational Software inc. 

4565 CherryvaIe 
Soquel, CA 95073 
(408) 476-4901 
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Rule number one: 

IT CAN'T BE DONE FROM BASIC 

Walt! Don't panic and return this program to us before 
you read on. We know you are not a Assembly language 
programmer. Neither are we, except when necessary. 

BASIC In the ATARI Is slow because It Is an Interpreter, 
meaning that every time you tell It to go move some point 
around on the screen. It has to first go and figure out 
exactly how to do what you've asked. This takes so much time 
that even with the machine doing hundreds of thousands of 
steps per SECOND, it can only move a single point around as 
fast as our first two examples. The way around this Is to do 
one of four thIngs: 

1) You can program In the machine's language, where It 
doesn't have to Interpret. This, however, would be 
too difficult for the average ATARI user. 

2) You can use machine language routines built Into the 
machine. A simple example of this Is what we are 
doing in Part 2 using the PRINT command to draw 
some what complicated shapes very quickly. In fact 
if you look at the code for the space bug, you will 
see a delay loop was put in to slow It down! Also, 
although too complicated to explain in a 
introductory program like this, you can redefine 

the characters you are printing to draw almost 
anything you can Imagine. The monsters in SPACE 
INVADERS are redefined letters of the alphabet, 
and are moved about by PRINT commands. 

3) You could also go buy a larger BASIC that includes 
some machine language movement routines to move your 
shapes around. (Basic A+ or Microsoft Basic). 

4) You can use PLAYER/MISSILE GRAPHICS like the tie 
fighter program we include as an example. 


ANIMATION USING THE PLOT COMMAND 

If you haven't already done so, now Is the time to load 
in the program. Follow the Instructions in the program and 
use your Joystick to move a simple square around the screen. 
This Is similiar to the movement in games of the SURROUND 
type. As you can see while you follow the program , it is 
really quite simple to move a square! We show you the code 
here so you can see the necessary steps to move the square. 
Don't worry about learning it all now. 
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THIS IS THE CODE FOR MOVING A SQUARE: 


10108 GROPHIC5 4 : POKE 764,255 ! X = 20 : V = 12 

1O103 2 -HERE IS OUR 5UUARE"!? “USE VOUR JOV5 

TICK TO MOVE IT .WHEN DOME PRESS AMY KEY" 

10105 W=STICKt0J 

1 01.10 Y = Y+ ty = 13:» 10 •= 0 » + ty = 5J — (V = 10) — tu = 143 — CO 

- © > 

1.0120 K = K- (V = 103 -- CU-AAi - (W = 93 + {U=6J + (U = 7J + «U = 
53 

10145 IF M <I THEN N = A 

10146 IF H>23> THEN K = 79 

10147 IF Y<_1 THEN Y = A 

.1.0146 IF Y>39 THEN Y = 39 

10150 COLOR 1;PLOT K.YilF PEEK£7643=255 THEN 
10105 


The better games of this type add another player to 
compete with and leave a controlled trail behind them. The 
trail is kept track of by the computer. Then, when you touch 
a location where the computer's "records" show a trail is, 
it scores for the other player 


After you have run the program through to the point 
where we show you how to erase the trail, we suggest you 
stop the program (press BREAK and remove your tape or disk). 
You can always come back and finish it later. To continue 
with disk, type RUN "D:PL0T2 . DSK" . For tape, use RUN"C:". 
The reason for stopping now is for you to write a small 
program that makes use of a square being moved using the 
PLOT statement. The easiest way would be for you to look at 
the listing. 

HERE'S THE CODE FOR MOVING A SQUARE, BUT WITHOUT A TRAIL: 


1. 0 5 2 6 
10 5 2 5 
I 0 5 3 0 
.1 O 5 4 0 
.1 0 5 5 0 
.1. 0 5 5O 
.1. 0575 
.1.0 55 6 
1. 0 5 0 0 
1 . 0 6 0 0 
A 0 6 .1 0 
10520 


TICK(03 

SETCOLDR 2 , 0 , 0 : COLOR 2 
IF 0=14 THEN Y-.Y--1 : PLOT H , Y + A 

IF 0 = A3 THEN Y = Y + UPLOT K , Y.A 

IF 'U 1 A A T H E N K = H - A IP L. O T H + A, Y 

IF 0-2 THEN K -N * 1 :PLO T H ~A, Y 

IF H < A THEN K -A 

IF K> 7 0 THEN X = 79 

IF V <A THEN Y = A 

IF Y>39 THEN Y=39 

COLOR A:P L. O T M . Y s IF PEEK (7643 =255 


THEN 


Lines numbered from 10520 to 10610 are the ones that 
move the square around. Add to our program using your own 
ideas. Also, since the code exists in the program we sent 
you, please feel free to delete the lines you don't need, 
and start with them already in the computer to save time 
(the Assembler cartridge could do this quickly!). Please be 
sure if you save your work, it is on a separate tape or 
disk. 
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iNuit: tven it you inTena to ao only non-game applications, 
the learning you gain from writing a simple game will help 
other attempts at animation. 

Before going on, we want to point out that when using 
PLOT and erasing your "trail”, you have to actually PLOT the 
position you are erasing with the color of the background. 
This makes that position seem to disappear as you PLOT the 
next position in the color of your choice. 

The next thing I do to show you the BASICS OF ANIMATION 
is to draw out the famous "Tie Fighter" shape and move it 
using the PLOT command. 

PLEASE NOTE THAT THIS IS ONLY AN EXAMPLE AND THE SHAPE 
COULD BE ANYTHING FROM A BUSINESS TO A HOME APPLICATION. IT 
ALSO COULD BE MUCH LARGER THAN WE DREW. I keep our programs 
simple to allow everyone to understand the PRINCIPLES 
INVOLVED, but with more memory and time you can do great 


Look at Figure 1. I drew out a shape at the upper left 
corner of what is called an X-Y coordinate system. The 

upper left most point that is filled in is at x=1 and y=1. 
Moving down the figure the next point is at x=1,y=2, then 
x=1,y=3, etc. with the last point of OUR shape at x=5,y=5. 
The computer doesn't care what order you input points into 
PLOT statements, just input them all. This means you don't 
have to use the points in the same order as we did, or even 
use the same points. Now, to put these into a BASIC program 
we use the DATA statement (read your BASIC manual!). It 
looks as follows: 

DATA 1,1,1,2,1,3,1,4,1,5,2,3,3,2, 

3,3,3,4,4,3,5,1,5,2,5,3,5,4,5,5 

Every two numbers represent one point to plot. 
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Here Is the complete TIE FIGHTER code: 


!. A S 2 C> GRAPHIC 5. 4 s K = 40 : V = 20 : COLOR 1 ! G05UB XX 9 3 
OS? "U5E JOYSTICK: TO HOME FIGHTER' 1 !? -"PRESS ift 
MV KEY TO GO OH" 

11825 POKE 76*,255!SPEEP=5:SETC0L0R 2,O,0:TRft 

IP 11828!S = SPEED 

11830 U = ST.ICK C0J :IF M = I5 THEM IJL832 
X A a 3 A GOTO 11835 

11832 IF REEK(784)=255 THEM 11830 
.1 A S 3 3 XF C M T R -2 THEN 12608 

11834 GOTO 120O0 

11835 COLOR 2:GOSOEt 11930 

11841 Y = Y+ (M = 13)*S+ CiU^SJi *tS+ CM = 5J*5 - (M = 10> *5. £ 

O x 4-3 #S- C U = 6 3 

11842 K = K- (M=10)*S- CU = 113*5- CM = 9)»5+ tU = 63»5+ C 
U ~ 7 3 *S C W = 55 3 -M-S 

11920 COLOR liGOSUB 11938 : IF PEEK (764) =255 TH 
EH 1183 O 

11930 RESTORE 1.1960IPOKE 752,1 

11940 REAIT> A , B i IF A-O THEM 11978 

11950 PLOT A+H,B+Y!GOTO 11948 

11968 0ATA 1,1,1,2,1,3,1,4,1,5,2,3,3,2,3,3,3, 

4- , 4- ,,2,4 „ 3,4,4,5 , 3,6 , X , 6,2,6,3 , & , 4 „ © , S ,8,0,0 
11970 RETORN 


The last part of this lesson allows you to move the 
cursor up to the data line we used for the tie fighter 
shape. The program Is now stopped, waiting for you to enter 
new numbers into the DATA statements. If a mistake occurs, 
you can try pressing RESET and typing RUN, but if the DATA 
Statements get too messed up It may be easier to reload in 
the program. You probally won't have to go through this 
since it is easy to change the required lines in the 
program. 

All you need to do Is type in new numbers that you have 
chosen, based on a drawing of YOUR shape made on standard 
grid paper. Once the DATA statement looks correct, press 
RETURN to enter it and then type CONT and press RETURN again 
to restart the program. Also, you may use numbers bigger 
than the 8,8 for your shape, but when you move it, if It 
goes off screen It will bomb the program since we only 
allowed in our code for the smaller shape. The more points 
you use, the slower it goes. Again, feel free to copy and 
modify our program or. If you like, just slowly change a 
small part of it to see how your own changes can add to It 
or make it better ! ! ! 
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ANIMATION USING THE PRINT COMMAND 


We included the "Bird at the Ocean" from the ATARI 
BASIC manual as a convenience for those who never typed it 
in. It demonstrates the simple use of alternating between 
two shapes in a PRINT command In order to obtain a feeling 
of motion. We will use this method now. Again, after 
finishing this part please modify the shapes or the 
background to get a feel for your own ideas. Backgrounds are 
simply created with PLOT & DRAWTO commands and the special 
Graphics Characters. We next show you animation of a single 
character in the horizontal and vertical direction. They 
both have simple sounds to demonstrate how easy sound is to 
add . 

HERE'S THE CODE FOR THE SPACE BUG: 

X JL3JL0 GRAPHICS 18:? »6j"MOW LET'S TRY A SPACE 
BUG"'! FOR M=A TO 680:MEKT W 
21320 

213 30 
21340 
2 . 1345 

21350 
21360 
21378 

21351 

2 . 1392 

2 . 1393 
213S4. 

2 A 3 S 5 
21396 
2 A 'I S ~7 
21408 
2 A A JL O 

214 2 O 
2 . 1430 
2 I 4. 3 1 

21432 

21433 

21434 

21435 
£ 1 - 4-4 0 
£1-4 00 
£ A 4- 5 O 
£14-0 O 
21470 
£ 1-400 


TRAP 23512 

£ ,, H":K = liV = 10:POKE 752,liCNT = 

POSITION X,V 
£ «“ “> s POSITION K,Y + i 

£ "ViPOSITIOM H , V + 2 
£ "A":POSITIOM K , V + 3 
£ “"I H a,< 

SOUND l,210,10,CNT+2 

FOR W=A TO 20:NEXT W:POSITION 

£ “" *"5 POSITION K,Y + .l 

£ “■ »“ 5 POSITION X jt V + 2 

£ ■* POSITION X , Y + 3 

X “ X + 2 S POSITION K,V 
£ " POSITION X „ Y +A 

£ ““X/"" : POSITION X, V + 2 

£ "A":POSIT.ION H r V + 3 

£ "XV 

FOR W=I TO 20:NEXT W:POSITION 
£ «« ««. POSI TION X , V+I 

£ «« POSITION X , V + £ 

£ ■« » « : p O SIT ION X , V + 3: 


SOUND 


,160,10,CNT+4:H=X+£:IF X>37 THEN 


GOTO 21340 

X=liCNT=CNT+liIF C«T= 
GOTO £13-40 
SOUND 1,0,0,0:IF 


THEM £1-400 


COUNT-A 


THEN 22560 



The program wi I I stop and a! low you to move the cursor 
up to the six lines that hold the shape for the "SPACE BUG". 
Change (using the special graphic characters) the shapes 
ONLY BETWEEN the quotes. When done, move the cursor to the 
top line and press RETURN until all six lines are re-entered 
into memory. If you goof up, clear the page and type GOTO 
23500 and press RETURN. If you enter the new shape correctly 
move to a BLANK area on the screen and type "CONT", then 
press RETURN to see your shape move across the screen. When 
you have played enough with our code, try adding backgrounds 
first before your shape is printed or perhaps try several 
shapes. You will quickly notice a main drawback to animation 
using the PRINT command (and PLOT too); everything you move 
over is rewritten and thus disappears 


-Note- 

To do full animation many additional tricks are taught in 
our other Tutorials. This is not intended just to sell more 
programs, but you deserve to know how to use the full power 
of your ATARI. Some of these other Tutorials include PAGE 
FLIPPING. MODIFICATIONS TO THE DISPLAY LIST AND SCROLLING. 






What makes PMG hard to explain is that there are so many 
built in features, and so many POKEs to do. We wanted to 
reach a compromise with an Introductory lesson like this, sc 
we Include an example using PMG with some exp I ainatlon. Like 
before, If you will just take the time to modify our program 
you will see the effects of each change. It would be even 
better If you had a specific goal In mind, say to change the 
shapes of the Players, or a different background. Please 
note that the way this example was written Is not the best 
It could have been done. It was wrlttrn long ago, but It 
works and that was the goal. The various POKEs are listed In 
more detail in our MASTER MEMORY MAP, and PMG Is more fully 
explained In a seperate Tutor I a I(#5). 
















HERE'S THE PGM CODE: 

SO K = 15:REM INITIAL PQ5 OF P/M JL 
30 TRAP SO 
4-0 SOUND 3,13,8,2 
50 PRINT Ki "* 

60 GO SUB 680 : REM BACKGROUND SUBROUTINE 
SO 5ETCOLOR 2,6,0! K=120 : Y = 88 : REM SET BACIKGR-lhU 
M B COLOR AND PLftVER POSITIOH 

BO POKE 704, .133 : REM SETCOILOR PLAVER8 TO BLUE 
SO POKE 785,188 : REM SET COLOR IP IL OVERT TO GREEN 
1.00 A - PEE K (106) -•© : POKE 54279, A : PHBA5E =256*A s R 
EM SET PLftYER-HISSLE STARTING ADDRESS 
X JL O POKE 559,4-6 : POKE 53277,3 s REM ENABLE PM GR 

APHICS WITH 2-LINE RESOLUTION 

120 POKE 7 5 2,1: REM MAKE CURSOR INOISABLE 

1.30 FOR I = PMBASE + 512 TO PMBA5E + 640 I POKE X,0:H 

EKT I ; R E M CLEAR OUT PLAYERO FIRST 

1.4-0 FOR Ir.PMBASE +640 TO PMBASE + 768 : POKE I,0:N 
EKT I!REM CLEAR OUT PLAYER1 FIR5T.THIS IS TO 
PREUEMT RANDOM BUNK .. 

ISO FOR I=PMBASE+640+K TO PMBA5E+644+K!READ B 

: POKE I,B:NEHT X : R E M DRAM P L A Y E R1. 

1.6 O BATA 153,189,S55,189,153 

170 REM BATA FOR TIE SHAPE 

.ISO FOR I = PMBASE + 512 + Y TO PMBASE + 516 + Y : READ A 

: POKE I,A:NEKT I:REM DRAM PLAYERO 

SO POKE 53S56..0IPOKE 53266, JL S : REM SIZE OF PL 

V E R O AND ALL MX S S L ES 

00 POKE 53257, O 2 REM SIZE OF PLAYER1 
1.0 BATA 153,189,S55,189,I53 

SO POKE 656,3:? “"PRESS .1 TO STOP GAME.'"" 

30 REM SAME SHAPE FOR OTHER PLAYER 

40 REM NOW COMES THE MO TION/COLLISION ROUTIH 
S 

50 XF PEEK(7i&4)=31 THEN 1650 
SO F=PTRIG(0)SREM READ TRIGGERS 
SO G^PTRIGQ) 

BO XF F-O OR MIS = 1 THEN GOSUB 390IREM SLOW IM 
S S L E R O U T X W E 

SO XF G--0 THEM GOSUB SSO:RiEM FAST MXSSL.E MOO 
R O U T X M E 

3'.00 POKE 6 5 6,0 : XF FS=1 OR GS = 1 THEN ? "GREENS 
SCORE£"}SC0ftEG:" BLUES SCORE="iSCOREB 

31.0 FS-O : G5 = 6 : REM THESE TELL ATARI TO PRINT S 
CORE 

3:20 POKE 53278, O S REM CLEAR OUT COLLISION REGX 
S Y E R S T O USE AGAIN 
330 A=PADDLE(0) 

340 B=PADDLE(1) 

350 POKE 53248 > A : XF MIS = 0 AND A<>0 THEN POKL 
53252, A — 1 S REM MOO E IP L A Y E R 0 C A MB MIS5LE0.) TO H 
EH LOCATION INSTANTLY! 



3:6 © POKE 53249 , IB g POKE 532!53 , B — .1. : REM 3ft ME FOR 
PLAYERi ^ 

37© GOTO 250 : REM GO READ PADDLES ftGftXM 

300 REM SOIIBROUTINE FOR BLUE MISSILE 

3 3 0 SOUND O 2 2 7 - 0-3*2 , O INTC16 - 'U* 2 iOJ :RE M Mft K E 3 

O U INI D DECREASE ft 3 MISSILE MOOES 

4. OO M ~ M + l:PO K E P MB ft 3E + 384 •+• V - V , & S PO IK E PMB ft 3 E + 3 
83 + Y-V , X 

418 E=PEEK(532561iIF E>0 THEM HIT=i:REM TEST 

FOR HITS 

420 IF W>95 THEM SOOiREM HIS5ILE MOVED FftR EM 

OUCH 

430 M.TS--JL S RETURN 

4 4 0 H .X T = O ! F 3 = 1. S R E M 3 ft V 3 T O P R X M T MEM 3 C OIR E , M X 

3 & HIT ARE COUNTERS 

45© SOUND 1,2 21., IO, X2 S POKE 53243,258 : FOR W--X 

TO 200sNEXT M 

460 SOUND 1,O,0,0 

4 7 O POKE 53245,120:P0KE 53278,0:RtM REPOSITIO 

W PLAYER! ft MIO CLEAR COLLISION REGISTER 

400 3COREB-SCOREB+1 

4 3 0 U = 0 : MX 3 = 0 : SOUND 0,0,0,0:RETURH 
5O0 IF HIT-A THE M 44 0 

51.0 0 = 0 S MXS = 0 5 SOUND 0,0,0,01 RETURN 

520 SOUND 0,208,8,8;P=O 

530 FOR 1 = 15 TO .13© SPOKE PMB ASE +38 3+ I , 0 : POKE 
PMB ASE + 384 + I4 S P = PEEK C53257) 

540 XF P=3 THEM 530 

550 NEXT I 

56© SOUND 0,0,0,0 

570 RETURN 

500 REM P=PEEKC532571:IF P=2 THEM RETURN 

530 SOUND 0,0,0,0 : GS = 1 S REM SAYS TO PRINT MEM 

SCORE 

60O RESTORE 630:SOUND 1,121,8,12 

6J..O FOR I = PMBASE + S12 TO PMBft SE +640 s POKE I,8:N 

EXT X S REM CLEAR OUT PLAYER FIRST 

620 V = 7 5 ; FOR X = PMBASE + 512+K + Y TO PMBASE + 516 + K 
TV S READ B SPOKE I , B S NEXT Is REM DRAM PLAYER 
6 3 0 B> ft T ft A 5 3,1. O 3,2 5 5 , X O 3 , X 5 3 

640 FOR 1 = 304 TO 5X2 SPOKE PMBA3E + I,0;NEXT X 

650 SOUND A,O,O,O 

660 SCOREG=SCOREG+i 

670 RETURN 

600 GRAPHICS 8:CMT=0 

6 3 0 COLOR X : X = RND tO)«JXS : Y = RND COJK159: CNT~CNT 
•TJLgPLOT K, Y:IF CNT>150 THEM RETURN 
7O0 GO TO 630 
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Player Missile Graphics Explanation 


LINE 50 : 

LINE 70 : 

LINES 80-90 : 
LINE 100 : 


LINES 130-140 : 


LINES 150-160 : 
LINES 250-370 : 


Clear the screen 

The X and Y position of player one 
Is established here. 

Player colors are stored In 704 to 707. 

Memory location 106 holds the value 
(In # of PAGES) of your top of memory. 

We simply subtract 8 pages to make 
room for the shapes of the Player to 
be stored. 

To create or erase a player, you POKE the 
shape Into memory where we reserved It in 
line 100. We first erase the player by 
Poking In all 0's. Player 0 starts at the 
value of PMBASE plus 512 and goes for 128 
locations In memory. Player 1 starts at 
640. 

Read the shape into memory. 

Main loop of program. Location 764 holds 
the last key pressed. When you run the 
program, you will note that the missiles 
don't move the same. One moves In a loop 
that Is fast because it doesn't go back 
and allow any players to move. The 
other is slow because It does. The 
collision registers mentioned In the 
comments to line 320 "record" when 
certain things touch eachotheron the 
screen. You determine what this location 
looks for by the value you put Into 
623 (if desired). Lines 350 & 360 

POKE the location that controls where 
ACROSS the screen the Players will 
appear. If you don't plug In Paddles 
the values transfered here will be 0, 
so the players will be off screen. 

Values of about 40 to 200 will be on the 
screen . 
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LINES 390-finish : 



the rest Is really just two subroutines 
to move the missiles up and down the 
screen. This Is done by erasing the 
shape at it's current location, and 
drawing It at a new place In memory 
placing 0's at the old memory locations, 
and placing 1 *s In memory). If you 
draw It close to the last location, the 
motion will be slower, but smooth. We 
also add to the scores here when the 
collision registers at 53256/7 don't 
hold a 0. Finally, the routine at line 
690 just creates stars by random PLOTs 
on the screen. 


The only way that all of these POKEs will become 
familiar to you is to get a hold of one of the publications 
that gives detailed descriptions of each memory location 
needed for PMG. Our Master Memory Map is good, and ATARI 's 
Operating System manual is better (but very hard to read). 
We hope you feel that this lesson was worth the cost. 

bye! 


Thanks 
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YOU CAN ANIMATE YOUR OWN CHARACTERS .. 
WITH PLAYER MISSILE GRAPHICS (PMG)! 


Ok! You spent your hard earned money on this program 
because everyone says that Player Missile Graphics Is the 
way to go, but you know it is too hard to ever really 
understand. Besides, you bought $25 worth of magazines for 
the two page articles on the subject, and they all said the 
same thing (which made little sense to you). After all that, 
you got ATARI'S book, DE RE ATARI, which was great reading, 
but Chris Crawford only explains the basic capabilities of 
PMG. How do you put it all to practical use? Well. 

Were Going to 
Write a GAME! 

Most of us like to play arcade games, and since most 
arcade games use cute little figures and a maze, we will 
design our game that way. One of my favorite games is called 
PACMAN (tm). We can't actually use the same game as the 
arcades due to legal problems, but we can take the cute 
I ITtIe character and put him into our our own hair raising 
situation! 





















application you wish. Player/Missiles is 
<\ny time you need color or movement in y 
the best way to get the job done. For 
SCRAM program, a Nuclear Plant Simulat 
Missiles for the various tanks and mechan 

WHAT IS A PLAYER/MISSILE 


The names Players and Missiles come 
use of these objects as guns (for the 
bullets or Missiles for the "shot" that w 
course, manv other uses exist, but the na 


make Vour FANTASIES 
COME ALIVE LEARNING^ 
ATARI GRAPHICS- y 







wrote too many examples for this TUTORIAL. Once you finish 
this lesson, you will find yourself creating all kinds of 
animated creatures! Fortunately, my Robot helper. Prototype, 
ate a few of the programs, leaving us with just enough 
examples to fit a very full tape. 

Because of the length of the lesson, some of you may 
have trouble reading in the programs on your 410 tape 
player. You will have to get 14 successful LOADS; so, as you 
LOAD each program , SAVE it on your own backup tape. Before 
you start, wind the tape forward and backward once. To load, 
reset your recorder's counter to zero. Now type RUN "C:" 
and press return twice. The tape should begin to load into 
memory. There is a backup copy of all examples on the back 
of your tape, but If loading still produces an error 
message, you have two options: 

1) Rewind the tape to zero, take it out, and listen to it 
in a regular cassette player. Listen for the beginning of 
the steady tone that preceeds the digital signal. This tone 
will continue for about 20 seconds, then the program begins 
to load. If you are not sure the tape is at the beginning, 
just rewind or advance it a little bit until you find a 
place where there is no steady tone, then move back to the 
start of the tone. Now place it back into the 410 recorder 
and reset the counter to zero since you now know this is the 
right place. If the tape loads from here... great. Remember, 

SAVE each program as you get a successful LOAD on another 
backup cassette. Prototype sys to remind you to write down 
the number your Tape player shows where each of these 14 (12 
for 16K users) examples start. This would be a good habit to 
develop when using anyone's cassette based program. 

2) You can "guess" at the correct spot by going back and 
forth until you get lucky, but that is very frustrating! 


Don't forget, if any program doesn't load properly, you will 
find backup copies on the reverse side of the cassette. If 
the program STILL doesn't seem to load properly, try another 
recorder (perhaps at a store or a friends house). If you are 
so upset at the darn thing you want to buy a disk drive, 
send it back for a prompt (I hope!) replacement to: 
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16k Users 


I haven't forgotten you. All programs on this tape 
except the two utilities will run on your machines. The 
utilities are very nice, but not necessary, so just save 
them until you increase your memory size to 32K. Example 
5.4, the Playfield editor, is out of order on your tape. It 
will be found after example 5.13 (Two players together), 
which is the last example that runs in 16K. Finally comes 
example 5.14, the last editor, which also requires 32K. 

- HOW TO USE THIS MANUAL - 


Without the Information in this manual, these programs 
are rather boring. Only when you understand what is being 
shown in the examples will PIayer/MissIe Graphics (PMG) 
begin to make sense to you. In fact, after you have written 
your first real game or business application you'll feel a 
wonderful sense of acompI ishment! 



As you progress you may find yourself lost on a certain 
subject. IMMEDIATELY refer to the FOLLOWING CHART to see 
which examples demonstrate the feature In question. Note 
that I refer to Example 5.1 as 1 since we all know this is 
Tutorial #5. When the chart says "others" this means that 
the other examples listed demonstrate the topic also, but 
not as well as those listed. Here then Is : 
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THE FOLLOWINO CHART 


TOPIC 


SEE EXAMPLES 


General Features of PMG . 

Playflelds (backgrounds) .... 

Color Selection & Pokes . 

Memory Area for PMG . 

How to Draw a Player . 

Missiles used as a Player ... 

Joystick or Paddle? . 

Use of Sound with PMG . 

Moving Players and Missiles . 
Size of Players and Missiles 
Single/Double line Resolution 

How to Animate a Player . 

Priority . 

Collisions . 

Two Players as one . 

Complete Game . 

PMG using StrIngs . 

Poke and Peek Table . 


EXAMPLE 5. 1 


1,2,14 
2, 4, 8 
5 

7 + others 
6,7,14, others 

5, 1 4 
7 

1 , 2 , 8 
1 , 2 , 6 , 7,9 

6, 1 4 
10 

2 , 11,12 

2,12 

2,12 

13 

2 

4, 1 4 

Append Ix 



If you are new to the ATARI computer, watch this example 
many times and look at It later as each subject Is 
mentioned. Here Is what you are seeing. First, the screen on 
your TV goes black, because I turned off the display 
processor, called ANTIC, accomplishing two things: 

1) Speeding up the machine by 30^, and 

2) Making the background of stars suddenly appear, 
rather than seeing them slowly drawn out. 

You can compare this to watching the background drawn out In 
the next program and choose which method to use. If you 
decide to turn off the screen display while YOUR backgrounds 
are drawn, here's how: 
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At the point you want 
100 0N=PEEK(559):P0KE 


(PROGRAM CODE TO 


500 POKE 559,ON 


Later I'll teach you what the correct number for "ON" is, 
but you can always just save the old value as I did above. 
The number in memory location 559 will have to be changed 
later to allow PMG to work. 


2 PROCESSORS? 


Yes, the ATARI does have two microprocessors. The ANTIC 
is a special one that Is used to draw the screen on your TV 
or Monitor. It does both graphics and text. Whenever it is 
in use, it "steals cycles" from the main mI croprocessor, the 
6502. This Is why the computer Is faster when the screen is 
bIank(559=0).... the main processor runs at full speed if it 
doesn't have to stop all the time to allow the ANTIC time to 
draw the screen. 


Are you still In Program 5.1? Good, don't rush ahead. 
This is going to take time to explain properly. 

The computer has a nice bunch of "stars" on the screen. 
Some are red and some blue. This is because when we plot 
single points In Graphics 8, the TV can only light up either 
a blue or a red pixel on the screen. If you look real close 
at your tube you will see these tiny pixels of red and blue. 
These background stars are called a PLAYFIELD when 
discussing PMG. If you look at the graphics chart on page 53 
in your BASIC manual, you'll see that most graphics modes 
allow from one to four colors. Modes 9 to 11 have more, but 
still only four of the colors pertain to the following 
discussion. 

When you enter color 1, and then draw out some shapes on 
the screen, you are drawing what is called PLAYFIELD 1. 
Likewise, if color 2 or 3 is allowed In the graphics mode 
you are using, these would be PLAYFIELD 2 or 3. The fourth 
playfield is actually color 0, the background color that you 
get when you start out in a graphics mode. AlI of these 
colors can be controlled. 




the screen to "turn off" 
559, 0 

DRAW YOUR BACKGROUND) 1 
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I usually set the border to the background playtield 
:olor so the whole screen appears the same. Notice how the 
5tars don't actually go to the edge of the screen, but since 
fhe Players can move anywhere, having the border the same 
;olor makes the playfield seem larger. 


At last we have two Players on the screen. It has been a 
long winded discussion, but there they are. And, oh my! They 
novel Oh, you knew they could? Well, I guess there Is nc 
suprising you. Notice how easily BASIC can move therr 
HORIZONTALLY across the screen. Now look at the listing for 
this program. Notice 5 lines (400 to 440) control the sounc 
and movement (You ARE going to study the code, aren't you?). 
Next, the Players grow In size. This capability also is c 
simple POKE of a number, and will be explained later. 


Finally our space battle concludes with one ship flrinc 
missiles at another until they both are destroyed and the 
example is over. Run the example again until you are sure 
what the following mean: 


A PLAYER 
A MISSILE 
THE BACKGROUND 
PLAYFI ELDS 0 TO 3 
A BORDER 
/SIZE CHANGES 








OUR COMPLETE GAME 
E XAMPLE 5-3 


Rather than talk about some strange ideas like collisior 
registers now, I thought you would like to see and play witl 
the goal of this Tricky Tutorial, an actual game using al 
of the feature of PMG. Now before you begin, please realiz< 
that our goal did not include producing a game just like th< 
arcades. Those are written in machine language with specia 
display tubes to allow very fine graphics. We just want t( 
uemonstrate all of the topics you will be learning later ii 
one program. For the hot programmers in the audience, th 
game can be expanded to be quite a lot of fun. As it Is now 
it just fits in 16k which was required for our friends wit 
ATARI 400's (and there are a lot of you out there). 


The "rules" of the game are easily changed. In fact 
the first thing you might do when you finish the comp Iet 
lesson is to change the game to your own specifications 
Most changes will be surprisingly simple. I'll offer som 
hints when the game is explained at the end of the Tutorial 
Until then, here are my rules: 

MOW TO thee: o^mee 


Plug in joysticks into ports 1 and 2. Each Player move 
his character and tries to score points. One point is score 
^ach time you "gobble" one of the two "Energizer Pellets 
that will appear from time to time. Five points are score 
if you gobble your opponent. This is done by first touchin 
the blue recharge zone in the center of the maze. You 
character will change color and may score by touching th 
other Player. If the other Player touches the recharge zone 
then he can get you and your color changes back to normal. 


I started the scores out at three each just to poin 
out that everything doesn't have to begin at zero. The Iogi 
to the game is to balance your moves between going for eas 
single pointers and the big score of five points! 




That's true, but think of this exciting fact. All of the 
basics techniques of real arcade games are Included in this 
I IrtIe game. The only improvements needed are your own Ideas 
and SPEED. Arcade games are written in machine language 
which accounts for the speed. The ideas are up to you! 

Notice the way the characters move. They are slow, yet I 
am moving them with machine language routines (these will be 
explained later). What slows them down is the Basic language 
needed to call them. Also, notice what happens when the 
characters touch the walls of the maze. After you have a 
real idea of what features are in the game, run example 5.3 
and we'll begin the lesson. 



This example is so simple to understand that my daughter 
even helped me write it. The basic idea I already mentioned 
above, but I'll repeat myself just this once (or twice). The 
stuff you see on the screen that is not a Player or Missile 
is called PLAYFIELD. Playfields are created by plotting 
points using the PLOT and DRAWTO commands, or by direct 
POKEIng of data Into the memory area that is displayed on 
the screen. You should already be familiar with PLOT and 
DRAWTO from your BASIC manual. If not, read about them In 
the manual and then come back. 


PRESS 1 on your keyboard and plug in a Joystick Into port 
#1. Move the joystick around to draw color 1 on the screen. 
Now PRESS 2 and draw with color 2. PRESS 3 and do the same. 
Finally PRESS 0 and draw with color 0. Notice that color 0 
seems to erase rather than draw, but I assure you It Is 
drawing. Think about it. Color 0 draws with the background 
color so when it Is plotted any other color, of course. It's 
changed (I know this was obvious to some of you). 


I wanted to show you the playfields. Playfield 0 is the 
background color; Playfield 1 Is whatever is drawn with 
color 1, etc. Page 53 of your Basic manual shows which 
Graphics modes allow which playfields. Although very simple, 
this example is Important for you since you must know which 
playfield you are testing for when you use the collision 
registers discussed later. 


9 



A NOTE ON COLORS - 

Throughout all of these examples. If you don't like the 
colors being used, please change them to match your TV. I 
have several sets that all show the colors differently, so 
some of these examples may look strange to you. Here Is how 
to change the colors: 


The correct value to POKE Is: 
COLOR * 16 + LUMINANCE 


where color Is a 0 to 15 and luminance Is from 0 to 14, In 
even numbers. 

Look within any example you want to change until you find 
the correct number being POKEd and place your color choice 
In the POKE statement. 



You probably know that any program, whether for a game or 
a business application, will need a background. The 
exception Is a text-only program which would seldom need the 
use of PMG. 

Let's say you want a space game with mountains, enemy 
bases, a few ships on the ground to shoot at, and maybe even 
some trees. These need to be plotted on the screen before 
the game can begin. The normal method Is to use graph paper 
ana hand calculate each point to be plotted. WOW! That Is 
the hard wayl Feeling Inspired, I thought I would whip up a 
little editor to help you. Here's how to use It. 


NOTE 

Because this program requires 32K to run, it Is the next 
to last program on the cassettes. For disk users, it Is in 
the same order we have been discussing. 




When the program has been loaded, disk users may press 
"L" and then "D" to bring In a previously saved drawing as a 
test. You will notice a flashing dot, or cursor, on the 
screen. This Is the point that Is being drawn as you move 
it. You can choose between playflelds 0 , 1, 2 or 3. First, 
find out how many Playflelds you are allowed In the Graphics 
mode you want to use. For example. If your program uses 
Graphics 5, you have all four colors to work with; In 
Graphics 6 you only have two. Press the number of the 
Playfield color and use the cursor keys(don't press CTRL) 
to move the cursor. Remember, to erase, you plot In the 
background, color 0. Draw out a building or spaceship. 

When done, the editor allows you save the shape two ways: 

To save the shapes for future use and modifications you 
may press "S" and then "T" or ,, D" for tape or disk. 

When done, the editor allows you save the shape two ways: 

To save the shapes for future use and modifications you 
may press "S" and then "T" or "D" for tape or disk. 

Tape users be sure and record the location on the tape 
where the program starts so that you may find the data 
again. Disk users will always find the data saved under the 
same name on the disk, PFDATA, so if you want to keep the 
shapes use the rename command, "E", FROM DOS, to name the 
data something more meaningful. 

To use the shapes in your program, you will need a 
simple subroutine. Look in the program code for this example 
to see a very sophisticated way to handle the data using 
strings. Go ahead and copy parts of it for your own use. 

Before presenting the code, let me remind you what we are 
doing. Each color of your shape needs to be plotted 
separately. Also, you will probably want to plot the shape, 
for example, a tree with some ground around it, at several 
points in the background. Finally, many other shapes like 
men, spaceships, and planets, must also be plotted. 

To get the data for your shape, just press SELECT and 
wait for 10 seconds. The text area of the screen will start 
presenting DATA statements that are the points to plot. The 
upper left corner of the square that limits your shape, if 
colored, would be 1,1. These numbers represent first an X 
value, and then a Y value of a standard grid system the 
ATARI normally uses for Graphics. To see all of the data for 
each color, press START each time the data stops. If you 
have more than 199 points in your shape of any one color, 
the program will say "TOO MUCH DATA" . I could only fit in 
that many points, so go back and change a few to a different 
color. It won't happen for most shapes. 

The numbers of the DATA statements should be changed to 
fit wlThin your program. You may want trees to always start 
at 5000; buildings at 6000, etc. 



Here Is a sample program to use with the Playfleld Edttor 


400 GRAPHICS 5 

410 SETC0L0R 0,12,4 

420 SETCOLUR 1,3,2 

430 SETCOLOR 2,13,12 

440 SETCOLOR 3,8,6 

500 rem***DRAW THE TREE 

510 COLOR 1: X=50: Y=24: GOSUB 1000 

600 REM***DRAW THE TRUNK 

610 COLOR 2: X = 50 : Y = 24:G0SUB 1000 

700 REM***DRAW THE SUN AND RAYS 

710 COLOR 3: X=30: Y=15: GOSUB 1000 

800 END 

1000 rem***PLOT ROUTINE 
1010 FOR I = 1 TO 80 

1020 READ A,B: IF A =999 THEN RETURN 
1030 PLOT A+X,B+Y: NEXT I 
5000 rem***DATA FOR TREE 

5010 DATA 2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,8,9,7,9,6, 

9,5,9,4,9,3,9,2,9,1,9,0,9 

5020 DATA -1,9,-2, 9,-3, 9,-4, 9,-5, 9,-4, 8,-3,7,-2, 6,-1 , 

5,0,4,1,3,999,999 
6000 REM**#DATA FOR TREE TRUNK 

6010 DATA 2,10,3,10,2,11,3,11, 2,12, 3,12, 999, 999 
7000 REM***DATA FOR SUN AND RAYS 

7010 DATA 0,0,1,-1,2,-2,3,-3,4,-4,4,-5,4,-6,3,-7,2,-8,1,-9 
7020 DATA 0,-10,-1,-10,-2,-10,-3,-9,-4,-8,-5,-7,-6,-6, 

-5, -6, -4, -5,-3,-4,-2,-3,-1,-2,0, -1 , 0 
7030 DATA 3, 1,4, 2, 5, 3,6, 4, 7,5, 8, 6, 9, 7, 1 0, 8, 5,-1,6, 0, 7, 1,8, 2 
7040 DATA 6,-3,7,-2,8,-1,9,0,10,1,11,2,12,3,13,4,6,-6,7,-5, 
8,- 4, 9,-3, 0,2,1,3,2, 4, 3, 5, 999, 999 



1 2 






























































































mote: : 


EXAMPLE 5.5 

COLORS 


Tape users may have this program cone on the screen 
looking very strange. Just press reset and type RUN to 
correct the screen 



We talked about how to change the colors of the 
playfleld (708 to 712) a few pages ago. The following 
utility will allow you to pick the colors directly without 
calculating the number to POKE. The POKEs listed, however, 
are for the Player colors which live in different locations 
(704 to 707 t 711). The color value to place Into any of the 
locations still uses the formula COLOR * 16 t LUMINANCE. 
Beyond this, the real purpose of this example Is to 
introduce you to the Players and Missiles. 


Look at the stripes of color on the screen. Each one Is 
half a Player. The bottom half Is "turned off" so that you 
can see the color Information. 



WHAT GOOD ARE STRIPES OF COLOR? 
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Good questlonl The stripes are only being used to best show 
the colors of the Players as you change them (I’ll tell you 
how in a moment). You can pick which of the eight pixels 
( I IrtIe squares of color) across each stripe will be 
colored. In the next example we will select certain pixels 
and create a useful shape. For now the top half of each 
Player ana Missile Is turned on (all 8 pixels colored) and 
the bottom half Is turned o f f(a I I eight pixels POKEd with 
0 »s) . 


Are you wondering which Player Is which? Player 0 is on 
the far left and Player 3 Is on the right. On the far right 
Is the corresponding Missiles 0 to 3 that work with each 
Player. I know that calling the first Player by "#0" Is 
confusing, but It Is required by the ATARI hardware and 
software. Soon you'll see how to place these shapes 
anywhere on the screen you wish. 

How To Use This Example 


Plug a joystick Into port 1. As soon as you move your 
Joystick an will appear. Place the asterlck over any of 
the Players. Hold the trigger button down and move the 
joystick up to Increase the color value, or down to decrease 
It. Notice that the numbers you POKE are the same for any 
given color. This means if you find a red that you like with 
a value of 45, you can POKE 45 into any of the color 
registers from 704 to 712 and get red for that Player, 
Missile, or PI ayfIe I d. 

When you have one Player color Just like you want It, 
move the asterlck to another Player and change It's color, 
too. After all four Players are done, you can set the 
background color by moving the asterlck to the far right 
side and pressing the trigger. Notice how the background 
color changes the appearance of the player's colors. Now 
use these color values In POKE statements within your own 
programs. 

A few of you by now have tried to change the colors of 
the Missiles. We have not yet mentioned any color registers 
for the Missiles. That's because there aren't any! Each 
Missile takes on the color of the Player with the same 
number. Here Is a review of the colors and registers: 


REGISTER 

*********** 


USED FOR 
*********** 


704 

P1ayer 

0 

and 

Missile 0 

705 

P1ayer 

1 

and 

Missile 1 

706 

Player 

2 

and 

Missile 2 

707 

Player 

3 

and 

Missile 3 

71 1 

P1ayer 

4 

(all 

MIssI1es together) 



What? Player 4? Yes, you must know by now that the ATARI 
Is full of suprlses. It turns out that the Missiles can be 
combined together Into a 5th Player (#4). We will come back 
to how this Is done later. For now, press SELECT. The 
Missiles will now come together and take on the color POKEd 
Into 711. To use the Color Editor on Player 4, Just move 
the asterlck to It and use the trigger. Pressing SELECT 
again would toggle the 5th Player back to Missiles. This 
would be a good utility to use whenever you need to choose a 
color. 


DIFFERENCE BETWEEN A _\ 
PLOTTED SHAPE AND A PLAYER] 
MISSILE IS ASTON ISM ING-. - > 





To solve this "Great Mystery" use a joystick In Port 1 
to move each shape. The Player moves WITHOUT PRESSING the 
TRIGGER. The playfleld shape moves by PRESSING the TRIGGER. 

I have to admit that I cheated In this example. The 
Player Is being moved with a small machine language utility. 
However, you will soon see that even BASIC can move a Player 
pretty fast vertically and Immediately horizontally. 

An Interesting experiment to do with this example Is to 
change the color In the program of the Player (find a POKE 
704,with a number after It) and then move the Player exactly 
on top of the plotted shape. If you move two plotted shapes 
over each other, and then move them away, you wllI have to 
redraw them both to remove the holes left In their shapesl 
The effect Is even better If you break the program and 
change the color of one of the Robots. Aren't Players 
great? 

EXAMPLE 5-7 
CREATIMG PLAYERS 

Press OPTION to get to the next example, 5.7. This will 
begin the technical part of this Tutorial. 


First of all, notice that the last picture Is still on 
the screen. Do you know how this happened? It's very simple. 
With playflelds, when you plot a background on the screen 
they stay on until erased with either new plotted data, or 
usually just another Graphics call. You loaded In the next 
program while a playfleld —the Robot— was still on the 
screen, so It Is still there when this example starts to 
run. This process Is similar to adding 32 to a graphics call 
as explained In the BASIC manual. 


You can create your backgrounds with one program and 
then have the main loop of your program load In separately. 
This allows large programs to fit into smaller memory sizes. 
Players will stay on the screen, too. 


Again, plug in 
Joyst Ick #1. You can 
move the shape on the 
screen In all dIrectlons. 
Including dIagonally. 
This routine Is very 
Important to you since it 
will teach all of the 
following basics: 




IMPORTANT STUFF TO LEARN 
FROM THIS EXAMPLE 


1) How to create a Player shape 

2) How to move that shape up and down (vertically) 

3) How to move It sideways (horizontally) 

This example can be copied into ANY program you want and 
just modified In a few places to get a Player moving around 
on your own design of a game or other application. It should 
be saved to a separate Tape or Disk and even renamed as a 
utility for Disk users. 

10 GOTO 140 
20 REM 

30 REM ****** MAIN LOOP ********** 

40 REM 

50 ST=STICK(0) 

60 X=X + (ST = 6)+(ST = 7)+(ST = 5)-(ST = 9)-(ST = 10)-(ST=1 1 ) 

70 Y=Y+(ST=13)+(ST=9)+(ST=5)-(ST=6)-(ST=10)-(ST=14) 

80 GOSUb 330 

85 IF PEEK(532/9)=3 THEN POKE 764,12:RUN "D:EX5.8" 

90 IF PADDLE(0)=228 THEN 1 10 
100 X=PADDLE(0) 

1 10 POKE 53248,X 
120 GOTO 50 
130 REM 

140 REM PMB=PLAYER MISSILE BASE ADDRESS IN PAGES 
150 REM (256 BYTES PER PAGE) 

160 POKE 704,40 

The example starts out skipping to line 140 to do some 
standard setups that will always be required. Line 160 you 
should recognize as setting the color of Player 0, which we 
will use for the shape (Spaceship?). Line 170 to 190 look 
I ike this: 

170 PMB=PEEK(106)-16 
180 POKE 54279, PMB 
190 PMBASE=PMB*256 


These lines reserve space In memory for Player and Missile 
shapes to be stored. This topic alone could take pages to 
explain, but I will give you only enough Information to make 
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Players & Missiles are created on the ATARI by something 
called DMA. DMA means Direct Memory Access. All the big 
computers have It. Apples don't! This process simply means 
that If you have "turned on" the DMA, the computer will take 
whatever shapes It finds at a place In memory starting with 
PMBASE and put them on the screen. They will be located 
horizontally (X direction) by the values stored In their 
horizontal registers (53248 to 53255). Their size In the X 
direction Is controlled by values stored In size registers 
(53256 to 53260). Their size In the Y direction Is 
controlled by two factors. First Is how many pixels you have 
turned on for their shape. Second, Players may be created 
where each number In memory Is put on the screen as either 
one pixel (single line resolution) or two (double line 
resolution). Their location on the screen In the Y direction 
Is simply controlled by where In the stripe you turn on 
pixels. 

WOW... I'M Tired 


That was a lot! There's even more to come, so take a 
break If you need to. 



Back to lines 170 to 190. Line 170 takes the value In 
location 106, which Is the location of the top of user 
memory (given In number of 256 bytes pages), and subtracts a 
certain amount of pages. This number Is then POKEd Into 
54279. That will tell the computer where the Player data 
starts. Finally, line 190 takes PMB In number of pages and 
converts the value to a regular memory location, PMBASE. We % 
will use this number a lot. The number I subtracted, 16> 
will change depending on the Graphics mode you are using. 
Choosing the amount to subtract Is explained In EX5.9. 



210 X = 125:Y = 100 :YSAVE = 100 
220 POKE 53256,0 


Next, In line 200, we POKE 53277 with a 3. This memory 
location Is called GRACTL. Poke It with a 1 for Missiles 
only. Poke with a 3 for Players and Missiles. 

In line 210 are the Initial X and Y positions where you 
want the Player on the screen.In 220, the size of Player 0 
is set to normal, which Is 0. If you had just turned on the 
machine, 53256 would have contained 0 anyway, but since we 
are running many programs one after another, this made sure 
the value was correct. The choices you have for the size 
are: 

Poke With For 
*********** ******* 


0 


Normal size 


1 


DoubIe size 


3 


Quadruple size 


Here are the 
PIayer/MIssI Ie size, 
the prevIous table. 


registers available for controlling 
POKE wth the appropriate values from 


RESISTER 

******** 


PARAMETER 

********* 


53256 

53257 

53258 

53259 

53260 


sIze. Player 0 
size. Player 1 
sIze, PIayer 2 
size. Player 3 
size of all missies 


To determine Missile size, you'll have to do a little 
calculating, but nothing too complicated. Just pick the 
desired size for each Missile from the chart below, then add 
up the numbers for all four (or however many you're using) 
and POKE the total into memory location 53260. 


For example. If you want a normal Missile 0, a double 
Missile 1, a quadruple Missile 2, and a double Missile 3, 
you would POKE 0+4+48+64=116. 


MISSILE f 
******** 
0 
1 

2 

3 


NORMAL 

****** 


0 

0 

0 

0 


DOUBLE QUAD 

****** **** 

1 3 

4 12 

1 6 48 

6 4 192 


1 9 



230 FOR I=PMBASE+1024 TO PMBASE+1280:POKE l,0:NEXT I 


Line 230 POKEs 0's Into the area where the data for the 
Player must go. This will act to clear out the Players 
stripe first. This may not seem necessary to you. For this 
reason, some of the later examples will actually erase their 
Player areas while you are watching. You will see the junk 
being erased. This statement takes a few seconds to do, and 
thus delays the beginning of any program that uses it. The 
best way to speed It up Is to put It at the very front of 
your programs. This Is demonstrated in later examples. For 
this example we only had to clear out memory between 
Pmbase+1024 and Pmbase+1280. Why? To explain we need a chart 
of what memory looks like: 


SINGLE LINE RESOLUTION 


Top of Memory 


PEEK(106) 


Pmb aset2048_^ 

Screen Data Area 

Depends on Graphics Mode 

UNUSED 

Pmbase+1792_^ 

Player 3 

Pmbase + 1536_^ 

Player 2 

Pmb a set1280_ ^ 

Pmbase + 1024 _. 

Player 1 

P 1 ayer 0 

—r 

Pmbase+768 _^. 

M3 M2 Ml | M0 

Pmbase ^ 

768 Unused 

Memory Locations 

(POKE Into 
54279) 

The Rest of Memory 
and Your Program 


694 to 8112 Memory 
Locations 


8 bits wide - 
Each bit I i ghts up 
one TV pixel. 


2 bits wide each 
Missile or use 
all 4 as a Player 


Look at the chart above marked Single Line Resolution. 
Starting at the place marked top of memory, we move down by 
a certain number of pages subtracted from the value in 106. 
This places us at the BOTTOM of the chart. This calculation 
was done In lines 170 to 190. Again, the amount to subtract 
will be explained In EX5.9. 
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Now that we have placed Pmbase, go back up In memory to 
Pmbase+1024. The next 256 bytes of memory are the stripe 
that holds Player 0. If any of these bytes of memory are not 
0, and If the setup POKEs have been made to turn on DMA, 
then those non 0 bytes will light up on the screen with the 
color values stored In 704. 

To move the shape up or down the screen, you just POKE 
non 0 bytes up or down the stripe of memory. Let's say that 
you place Pmbase at 30000 In your memory. Any non 0 bytes 
at Pmbasetl030(30000t1030, or 31030) will appear near the 
top of the screen and If those same numbers are POKEd Into 
Pmbase+ 1200, they will appear near the bottom of the 
screen . 

Continuing with this logic should make It clear what 
happens If you POKE numbers Into Pmbase+ 1400. You would now 
be turning on a shape In Player 1 that would appear on the 
screen If the "setup POKEs" were done. Let's finish 
discussing the setup procedure. 


Lines 240 to 300 POKE the shape Into memory, just as we 
were talking about above. Understanding lines 250 to 300 

will be a real key for you. Here Is what they look like: 

240 RESTORE 210:CNT=0 

250 FOR I=PMBASEt1024tY TO PMBASEt1280 

260 .READ B: IF B = 0 THEN 310 

27U CNT=CNT+1 

280 POKE I,B 

290 NEXT I 

300 DATA 8,60,126,195.126,60,24,126,165,0,0 

The shape is poked into memory with an offset of "Y". This 
says to place the shape Y units down the screen. If Y=0 then 
the shape will be at the top of the screen. A value of Y=252 
puts the shape at the very bottom since the shape has eight 
numbers that must fit into the 256 byte long stripe of 
memory. In a few lines we will simply calculate where we 
want the shape on the screen and use this routine to POKE it 
Into the right place. 





The last major hurdle Is the way the data Is calculated. 
Here Is another figure to help you visualize the shape: 

PLAYER 0 


256 

Number 

Stripe 


) of TV Screen 


Pmbase+1024+Y 


Bottom of TV 



4+8+16=28 
,2+4+8+16+32=62 
.1+2+4+16+32+64=119 
, 1+2+4+8+16+32+64=127 
,2+4+8+16+32+64=126 
■4+8+16+32+64=124 
■8+16+32+64=120 
•4+8+16+32+64=124 
2+4+8+16+32+64=126 
1+2+4+8+16+32+64=127 
■2+4+8+16+32+64=126 
2+4+8+16+32=62 
4+8+16=28 


This Shape 
Has 13 Numbers 


To create your own shape, you just fill In the boxes 
you want for the shape. Then to get the "TOTAL", you just go 
across each row and add up the value for any box that Is 
filled in. When you poke these numbers Into memory, your 
shape appears on the screen! 


Back to the program code. Line 310 Is what finally turns 
on the player. The correct value here Is obtained by adding 
up the options you want from the following: 

FOR ADD 

******************************************* 

3 

2Choose 1 Only 
1 

4 
8 
0 

1 6 Choose 1 Only 
32 


Wide playfield . 

Standard Playfield .... 

r,..,„ T | Narrow Playfield . 

DMACTL (559) Turn on HI ’ sMe DMA ... 

Turn on Player DMA .... 
Double Line Resolution 
Single Line Resolution 
Turn on Main DMA . 


22 












In this case we want Standard playfleld (2) + Missile 
(4) and Player (8) DMA plus the Main DMA (32) and Single 
line Resolution (16) for a total of 2+4+8t32t16=62. This Is 
why we poke 559,62. 


That ends the Setup 


You should be able to use this same setup code for most 
PMG programs you do. Just make the few changes required by 
things like resolution and playfleld size. Note - single and 
double line resolution will be discussed In example 5.10 
com Ing up soon. 


The program now branches to the main program loop at 
line 50, which reads Joystick 0. Lines 60 and 70 Increment X 
& Y from their Initial positions set In line 210. The only 
thing left for the program to do Is move In the X and Y 
directions. The X direction Is easy. The ATARI has built In 
position registers for the X direction. In line 110 we just 
poke the new X value Into that memory location, 53248. 

Here are the X direction registers 


REGISTER # 

MISSILE/PLAYER 

•######**# 

************** 

53248 

P0 

53249 

PI 

53250 

P2 

53251 

P3 

53252 

M0 

53253 

Ml 

53254 

M2 

53255 

M3 


To move in the Y direction we have to do something similar 
to the way the playfleld Robot was moved In EX5.6. 
Fortunately, we don't have to move as many bytes of memory 

around. That robot had almost 200 data points! Moving our 
player Is as simple as poking In eight numbers Into memory. 
310 POKE 559,62 
320 GOTO 50 
330 REM 

340 REM ***** UP/D0WN MOVE ******* 

350 IF YSAVE=Y THEN RETURN 
360 IF YSAVE<Y THEN 430 
370 RESTORE 210 
380 FOR 1=1 TO CNT 
390 READ B 

400 POKE PMBASEt1024+Y+| , B 
410 NEXT I 

420 YSAVE=Y:POKE PMBASEtl024+Y+CNT+1,0:RETURN 
430 RESTORE 210 
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440 FOR 1=1 TO CNT 
450 READ B 

46U POKE PMBASE+1024+Y+l-1,B 
470 NEXT I 

480 YSAVE=Y:POKE PMBASE+1024+Y-1,0:RETURN 
Look at lines 340 to 480. First, In 350, I compare the 
current value of Y to the last. If It Is the same, we don't 
waste our time and just return. Line 360 says, "If Y Is now 
bigger than last time, go to the move up In memory routine 
at 430, otherwise move down". Remember, as Y Increases In 
memory, the shape appears to go down the screen. This comes 
from the way the ATARI does It's coordinate system and Is 
explained on page 47 of your Basic manual. 


Both the routine to move up, and the one to mpve down, 
are similar to the original one we used to POKE the shape 
Into memory. All we are doing Is POKEIng the same shape down 
or up by one byte In memory. 



MOW WE ARE BETT X ls|C3 HOT! 
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IMPORTANT POINT* 

When you move the shape you repoke 7 of the 8 numbers 
that are currently In memory and poke In one number In a new 
location. That last number Is not changed because you have 
moved by one byte. That Is why the 0 Is poked Into that 
remaining location In line 420 or 480. Were the 0 omitted, a 
traiI of unchanged bytes would be left on the screen, 
leaving something like this: 



If you are lost by all this there is only one way to figure 
it out. Stop the lesson now, break the program, and start/ 
making small changes to where and what numbers are poked 
Into memory. Soon you will say to yourself, "That's what The 
(old/not so old) PROFESSOR was trying to say! 

M* . . ■" 

You now have most of the basics to place a player on the 
screen and move It around. The earlier playfield editor 
discussed how to create the background for your program. Now 
all we need are the small details that tie all of this 
together. 


HEY! WHAT ABOUT THE PADDLES? 


Oh yes, I forgot to tell you why the move In the X 
direction was so slow. The joysticks we are using, combined 
with the program code, only allow X to change by one value 
at a time. Paddles, on the other hand, can Instantly change 
the value they return from 0 to 228. Plug In a paddle 
controller. If you have one, and now try moving the shape 
across the screen. It will be instantaneous! 
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El X AMPLE 5- © 


r h i s simple example takes the same basic routine as in 5.7, 
)ut starts to make it look like a game. Finish it If you'd 
like, it's good practice. There are three things you should 
learn from this example. 

First, notice the stripe of randomly flickering "junk" 
)n the screen when the program first starts. This Is caused 
)y only partly turning on the DMA as discussed above. As 
;oon as all the setup is complete, the exact shape appears. 


Second, look at the program list and see the way the program 
is structured. When you write your own codes, I suggest you 
do something like this. The program just goes to several 
subroutines that : 

1) Draw the mountains 

2) Draw the stars 

3) Set up Player 0 as shown in the utility above 

4) Main loop routine for the movement and/or 
scoring 

Notice that I use sound in the loop. It's easy to do if 
you spend a little time in practice. This simple 

structuring is used in many arcade-style games. 

Third, I'll show you one of the two machine language 
utilities within the program. Both are short and can easily 
be transferred to you own programs. This one is used to 
move only Player 0. It will read Joystick 0 and move the 
data In the Player 0 stripe accordingly. You must use 
single line resolution Players, as we have been doing so 
far. (That means the shape is at PMBASE t1024 to PMBASE 

t1279) Copy the needed lines to a separate file using the 
LIST command. Then you could enter it as needed. Don't 
forget to delete the other lines of the program first. The 
lines you need to keep are just 40,90, and 130. 

Heres the routine: 

.4© DIM E$ (68) 

■3 & e $ c ± , 6 ©:»=" » h h h j HOD H Sir iraiilliriCh • j 
H0 'maoEBanarr tscih j h e=injm£E3gs:«b "wq ^ -* isisOjEis iw ^3 #■ w■ 

JL & O if* HI S n C ift lf> IFt (ES) „ -5 'T X C IK t ©:3i 3 _ „ 






When you run this example notice our old friend the 
Robot. He's back! However, as you move him around (using 
the same machine language routine as the last example), 
there's some 'junk' on the screen. 


The time has come, my friend, to explain how to position 
the PIayer/Miss I I edata area within memory. Look at the 
program listing for example 5.9. Do you remember how we 
obtained the value for PMBASE? It worked like this: 


100 PMBASE = (PEEK(106)-16)*256 


On page 45 of the BASIC manual, you'll see a chart 
showing the amount of RAM (memory) needed for each graphics 
mode. As the next figure shows, you don't want the data for 
the Players and Missiles overlapping the data placed on the 
screen. Even worse would be to write over the DISPLAY LIST. 
That is what happened to tape users with example 5.5. 

When they reran the program by pressing RESET, the 
Operating System fixed the display list. In this 
example,look at the Player data being moved by the machine 
language program within the Player stripe. See If you can 
understand the term 'wraparound' by moving the Player up 
until it comes back from the bottom. This will also work 
sideways. The data that is being written to the screen area 
will also 'wraparound'. 
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In example 5.5, when I explained the method, I said that 
the number 16 changes depending on your program. Let's 
discuss why. The listing you are looking at will only use 
16 as the memory amount to subtract because the Graphics 
mode being used requires IK or less of memory. As another 
example, 5.8 POKEs memory back 40 pages because Graphics 8 
requires more memory. 

Here's a drawing to help our discussion: 



OOP'S WRONG DRAWING 


CONFLICTS 

Between 

PLAYER MISSILE DATA AREA 
and 

SCREEN DATA AREA?? 
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The easy way to avoid putting Player data where it doesn't belong is to 
use the following chart. Single line resolution players always must start on 
a "IK boundary." This simply means subtract from the value in 106 either 8 
pages, or 16, 24, 32, etc. Remember, a PAGE is 256 bytes (1/4K). When we 
discuss double line resolution players (soon, soon), you must start the data 
on a IK boundary, so subtract 4, 8, 12, 16, etc. 


GRAPHICS MODE 

APPROX. # MEMORY LOCATIONS USED 

SUBTRACT THIS # 
FROM LOCATION 106 

0 

992 

16 ( 8 ) 

1 

674 

16 ( 8 > 

2 

424 

16 ( 8 ) 

3 

434 

16 ( 8 ) 

4 

694 

16 ( 8 ) 

5 

1174 

16 < 8 ) 

6 

2174 

16 < 12 ) 

7 

4190 

24 ( 20 ) 

8 

8112 

40 ( 36 ) 

9 

8112 

40 ( 36 ) 

10 

8112 

40 ( 36 ) 

11 

8112 

40 < 36 ) 


IT'S A BIRD 

IT'S A PLANE 

IT-Q- - - DOUBLE I_INE 

RESOLUTION 

EXAMPLE 5.1O 

This simple example Introduces you to the SQUIGILY 
MONSTER. It will show Itself In two sizes. The smaller size 
is called single line resolution. This Is the way we have 
previously set up our Players. Simply put, each number In 
the data area for the Player is placed on the screen as one 
line also. The data area has 256 bytes available, which as 
you saw In the Color Changing example, more than covers the 
screen. If you look closely at the screen you can see the 
Individual pixels. 


The other way you can set up your Players and Missiles 
Is called double line resolution. This uses only 128 bytes 
per Player; meaning, to fill the screen, the computer will 
place TWO lines on the screen for each number In Its data 
area. This makes the shape appear thicker. 

Press the SELECT button for the single line Player and 
the START button for double line. 
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Double line Players are set up similar to 
but wl+h these differences: 


single 


line. 


1) Instead of adding 16 to the total value to POKE Into 
559, add 0 (see previous chart). This tells the computer 
where to look for the data for each Player and Missile. This 
example switches between the two resolutions with just this 
one POKE. 


2) Instead of POKEIng the shape of the Players Into 
PMBASEt768 to PMBASE +2048 as the above figure showed, you 
place the data Into PMBASE+384 to PMBASE+1024. This means 
that we have to look at .... ANOTHER FIGURE: 


DOUBLE LINE RESOLUTION 


Peek (106)- 

Screen Data Area 

Depends on Graphics Mode 

694 to 8112 Memory 
Locations 

Unused 




Player 3 


| 8 bits wide - 

>Each bit lights 
' up two TV pixels. 


Player 2 

Pmbase+768 * 

Player 1 


Player 0 

Pmbase+512-* 

M3 M2 Ml MO 

\ 2 bits wide each 

Missile, or use 

Pmbase+384-► 

384 Unused 

Memory Locations 

all 4 as a Player, 

(Poke into 54279) 

The Rest of Memory 
and Your Program 


The decision on which resolution to use depends on how 
small you want the pixels to be In your figure and how much 
memory you can afford to use for the shape data. I have 
given you several of each type In these examples, so lt*s up 
to you. Have fun! 
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There isn't too much more to learn before we can discuss the 


game. Next, we'll animate the little Pacman(tm) type shape 
(note: we refer to a general type of shape and are not trying to 
infringe on others rights, end of legal talk). Run example 5.11. 
You'll see the memory area for the shape cleared out, then the 
shape appears. It doesn't look much like a Pacman(tm)? No mouth? 
Push the joystick! 


The shape looks better now that it is moving. I could have 
used three or four shapes to open and close the mouth, but two 
shapes' is simple to explain. If you add another shape with the 
mouth just slightly open, you'll see smoother action. To see the 
two shapes as they change, just give a series of quick pushes on 
the stick. What you are seeing is two Players, but only one at a 
time. Let's see how this is done. 


10 FOR 1=1 TO 8:POKE 53247+I,0:NEXT l:G0T0 240 

20 FOR I=PMBASE+1024 TO PMBASE+1792:POKE l,0:NEXT I:RETURN 

30 REM *****P|_ AYER SETUP ***** 

40 GRAPHICS 7:D=20: E = 50:P0KE 710,0:POKE 712,0:P0KE 704,41: 

POKE 706,41 : P0KE 559, 62 

45 COLOR 2:PLOT 1,57:DRAWT0 159,57:PL0T 1,65:DRAWT0 159,65 
50 A = PEEK(106)-32:P0KE 54279,A:P0KE 204,A + 4:P0KE 203,0: 
PMBASE=A*256 

60 POKE 53277,3:X=150:P0KE 205,120:POKE 53256,0:P0KE 53250,150: 

POKE 53258,0 
70 G0SUB 20 
80 RESTORE 110:Y=150 

90 FOR I=PMBASE+1024+Y TO PMBASE+1209:READ B:IF B<>0 THEN 
POKE I,B:NEXT I 





100 REM «»**« data FOR PACMAN1 *«»»« 

!!o REstoRE'?^" 9 ’ 127 ’ 254,252 ’ 248 ’ 252 ’ 254 '' 27 ’' 26 ' 62 ’ 28 ’ 0 ’ 0 

130 FOR I=PMBASE+1536+Y TO PMBASE+1792:READ B:IF B<>0 THEN 
POKE I, B:NEXT I 

140 REM ***** DATA FOR PACMAN2 ****** 

150 DATA 28, 62, 118,255,255,255, 255,255,126, 126, 62, 28, 0, 0,0,0 
160 POKE 559,62 
170 REM 

18u REM ******MAIN LOOP ****** 

190 REM 

210 ST=STICK(O):S=PEEK(53279) 

220 IF S=3 THEN POKE 764,12:RUN "D:EX5.12" 

222 IF ST=15 THEN 210 

225 X=X+(ST=7)-(ST=11):POKE 53248,X:POKE 53250,0:FOR J=1 TO 50: 
NEXT J 

226 POKE 53250,X:POKE 53248,0 
230 GOTO 210 

240 GRAPHICS 17:POKE 712,69:POKE 710,19 
250 ? #6;"AN I MAT I ON OF SHAPES " 

260 ? #6;" IS AS SIMPLE AS " 

270 ? #6;"SWITCH ING BETWEEN » 

280 ? #6;" TWO PLAYERS AS YOU " 

290 ? #6;"MOVE AROUND.use " 

300 ? #6;"YOUR JOYSTICK TO SEE" 

310 ? #6;"THE pacman(TM) MOVE!" 

320 FOR 1=1 TO 3000:NEXT l:GOTO 40 
330 POKE 764,255 

Look at the program code for example 5.11. Notice In line 
50 the memory setback Is 32, not 16. This Is the amount required 
when using Graphics mode 7. In line 60 POKEs, are made to both 
the horizontal location and size of Player 2. Yes, Player 2! You 
don't have to use the Players In any particular order. Lines 120 
to 150 just POKE In the data for a second shape Into the correct 
area for Player 2. In line 225, POKEs are made to place Player 0 
at X and Player 2 at 0, which Is off screen. Finally, at line 
226 Player 0 Is moved off screen and Player 2 Is placed at X. 
There Is a delay on line 225 to allow you to see the "switching" 
of shapes. 

Does that seem hard? All you have to do to create additional 
Players Is: 

1) Poke Into the correct memory area the data for their 

shape 

2) Poke the size you want Into the size location In memory 
(opt IonaI,sI nee 0 is a default If you forget) 

3) Poke the horizontal location (X) Into the horizontal 
memory location. 

4) Have f un I 
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To animate a shape, just alternate two or more shapes at the 
same spot on the screen. The different shapes will seem to 
blend Into a single, animated shapel 

A note on animation Is In order. Remember the Robot 
example where I asked "Which Is the Player?". I hope you can 
now see the power of using Players for your shapes. To plot 
and erase this shape from BASIC would be very,very slow! 


PRIORITY AND CDLL. I S I ONS 
__ EXAMPLE 5.12 



These two topics were saved for last. They're not 
difficult subjects, I just wanted you to get a lot of 
experience first with the basics. Example 5.12 takes the 
beginnings of a game that we did In example 5.11, and adds 
collision with some energy pellets In order to allow the 
creature to "eat" the pellets. When It crosses over the 
"walls" In the tunnel, the shape will seem to be In front of 
the walls. At the end of the tunnel, the shape will be 
Inside, or behind the wall because I set the priorities so 
some colors act differently than others. Here's how I did 
it I 


Most of this program Is the same as the other examples. 
One of the nicest things about using Players ana Missiles Is 
writing a program, and then making only slight changes to 
use It for a completely different purpose. 


Line 10 POKEs all of the horizontal location registers 
to 0. This is not used In this program, but makes sure that 
all previous Players are off screen. Remember, just because 
we loaded In a new program, doesn't mean that old Players 
will disappear. They stay there until removed! This can be 
useful in programs that have multiple parts to them. 
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10 FOR 1=1 TO 8:POKE 53247+I,0:NEXT l:GOTO 270 

20 FOR I=PMBASE+1024 TO PMBASE+1536:POKE l,0:NEXT I:RETURN 

30 REM *****PLAYER SETUP ***** 

40 GRAPHICS 7:POKE 710,0:P0KE 712,69:P0KE 704,41:POKE 706,4T: 

POKE 559,62 

45 POKE 708,103:POKE 752,1sPOKE 709,139:POKE 710,100 

47 COLOR 1:FOR X=20 TO 150 STEP 30:PLOT X,61:PL0T X+1,61:NEXT X 

50 COLOR 2:PLOT 1,57:DRAWT0 159,57:DRAWTO 159,66:DRAWTO 1,66: 

DRAWTO 1,57 

52 PLOT 157,57sDRAWTO 157,66:PL0T 158,57:DRAWTO 158,66 

55 COLOR 3:FOR J=1 TO 4:F0R K=1 TO 5 

56 T=K+J*30 

57 PLOT T,57:DRAWTO T,66:NEXT K:NEXT J 

Lines 47 to 57 plot three different parts to the 
background. The first part Is the "energy pellets",le. small 
dots, that the Pacman(tm) will "eat". These are plotted In 
Color 1 (location 708). Next, lines 50 & 52 draw out the 

rectangular lines that our Imagination will call walls of a 
Pacman(tm) tunnel. The walls are drawn In Color 2. Lines 55 
to 57 draw the walls that Impede the character's progress. 

These walls are plotted In... You guessed It.... Color 3. 

The fact that different things are drawn In different colors 
Is critical to the game. These locations, called COLLISION 
REGISTERS, are checked by the ATARI to see If something 
(like a Player) has touched something else (like a Color 1 
wall). Notice that Colors 1 to 3 may all be the same, l.e., 
red, but the different walls must be drawn with different 
COLOR statements for collisions to work. 

60 A=PEEK(106)-32:POKE 54279,A:P0KE 204,A+4:POKE 203,0:PMBASE=A*256 
70 POKE 53277,3:X=50:POKE 205,120:POKE 53256,0:POKE 53250,150 
80 G0SUB 20 

90 RESTORE 120:Y=150:ERAX=-10 

100 FOR I=PMBASE+1024+Y TO PMBASE+1280:READ B:IF B=999 THEN 110 
105 POKE I,B:NEXT I 

110 REM ***** DATA FOR PACMAN1 ***** 

120 DATA 28,62,119,127,254,252,248,252,254,127,126,62,28,999 
130 RESTORE 160 

140 FOR I=PMBASt + 1 536+Y TO PMBASE + 1792:READ B : I F B = 999 THEN 150 
145 POKE I,B:NEXT I 

150 REM ***** DATA FOR PACMAN2 ****** 

160 DATA 28,62,118,255,255,255,255,255,126,126,62,28,999 
17U POKE 559,62 
180 REM 

lyu REM ******MAIN LOOP ****** 

200 REM 

205 POKE 532/8,1:REM CLEAR ALL COLLISION LOCATIONS(SO THEY HOLD 0'S) 
220 ST=STICK(0):S=PEEK(53279) 

230 IF S=3 THEN POKE 764,12:RUN »D:EX5.13" 

240 X=X+(ST=7)-(ST=11):P0KE 53248,XrPOKE 53250,0:F0R J=1 TO 50: 

NEXT J 

242 IF PEEK(53252)<>0 THEN GOSUB 1000:GOTO 220 

245 IF X>220 THEN X=40 

250 POKE 53250,X:P0KE 53248,0 

260 GOTO 220 
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In line 205, we learn a new trick. To go with those 
Collision Registers, there Is this location, called HITCLR, 
at 53278. It does just what It's name Implies... When you 
POKE It with a 1, It will clear the other Collision 
locations so that they read 0. If this Isn't done, then 
after a collision occurred, the approplate collision 
register would be set and stay that way. You'll see all 
this In action In a moment. Here's a list of all the 
collision registers: 


Memory Location 
******************* 


Type of collision 
a***######### 


53248 

53249 

53250 

53251 


Missile 0 to Playffeld 
Missile 1 to Playfleld 
Mlsslle 2 to Playfleld 
Missile 3 to Playfleld 


53252 

53253 

53254 

53255 


PIayer 0 to PI ayfIeId 
Player 1 to Playfteld 
Player 2 to Playfleld 
PIayer 3 to Playfleld 


53256 

53257 

53258 

53259 


Missile 0 to Player 
Missile 1 to PIayer 
Missile 2 to PIayer 
Missile 3 to PIayer 


53260 

53261 

53262 

53263 
53278 


Player 0 to Player 
Player 1 to Player 
Player 2 to Player 
Player 3 to Player 
Clear all collision registers 


That's a loti They are really easy to use, however, so 
stay wlrh me. You simply PEEK at the location that starts 
wlm the object you are concerned with. In this example, we 
want to know If the shape. Player 0, has collided with the 
Playfleld. That means we will look at the value In 53252. 
This Is done In line 242. If It Isn't 0 then some kind of a 
collision has occurred and we branch to the subroutine at 
I Ine 1 000. 


270 GRAPHICS 17:P0KE 712,245 


#6;"NOW WE ADD CHECKING 
#6;"FOR COLLISIONS WITH 
#6;" THE WALLS AND ALSO 
#6;" PRluRlTY WITH THE 

#6;"OTHER SHAPES_use 

#6;"YOUR JOYSTICK TO SEE 
#6;"THE pacman(TM) MOVE 
#6;" IN AND OUT OF THE 
#6;" TUNNEL SHAPES " 
365 FOR 1=1 TO 2000:NEXT I 
370 GOTO 30 


280 ? 
290 ? 
300 ? 
310 ? 
320 ? 
330 ? 
340 ? 
350 ? 
360 ? 
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1000 REM **** COLLISION SOUND **** 

1002 COL=PEEK(53252) 

1004 IF C0L=2 THEN 1015 

1005 IF COLol THEN 1030 

1006 ? "YUMMY!I":? :? 

1007 FOR 1=200 TO 0 STEF -1:SOUND 0,I,10,8:NEXT I:? :? :? 

1008 COLOR 0:ERAX=ERAX+30:PLOT ERAX,61:PL0T ERAX+1,61 

1009 X=X+8:POKE 53248,X:P0KE 53250,X 

1010 GOTO 1030 
1015 SOUND 0,50,8,8 

1020 FOR 1=1 TO 30:NEXT l:SOUND 0,0,0,0 
1030 POKE 53278,1:RETURN 

From 1000 to 1005, we test to see what Is In the 

Collision register. We already know It Isn't a zero -- 

that's how we got this far. If It's a 2 then we know the 
Player "hit" (overlapped) Playfleld 2, which Is the walls of 
the tunnel. We then make a collision sound and go to line 
1030 which Is ALWAYS REQUIRED to reset all collisions 

registers to hold 0's. If it Is a 1, we ran Into Playfield 
1, which In our program Is the "energy pellets", so the 

message "Yummy" Is printed and an approplate sound Is made. 
These lines also POKE HITCLR (53278) and return. 


Does alI that make sense to you? 

Let me repeat the basic way to use collisions: Find the 
Collision register that deals with the two Items you are 
concerned with, either a Missile #_ or a Player #_ on the 
left side and a Player, Missile, or Playfleld number on the 
right. Read the value In that register by using the PEEK 
command. The number that results will be either 0, 1, 2, or 
3. If It is 0, It means you collided with yourself which Is 
meaningless. If it is a 1, you collided with Playfleld 1, 
Player 1 , or Missile 1 depending on the register you are 
using. If a 2, It means you collided with PF 2, PLAYER 2, or 
Missile 2. A 3 means a collision with PF3, Player 3, or 
Missile 3. You can then branch to do whatever kind of noise 
or graphics you want. 


I have one last trick In this example. Line 245 allows 
the character to wraparound In the X direction. It just 
tests for a value of X greater than 200, which Is off the 
right side of the screen. By setting X equal to 40, the 
character will suddenly appear on the left! 

One part of this example doesn't show up In the program 
listing. That's priority, meaning "What will appear in front 
of what". In other words, will a character appear to go 
Inside a House drawn on the screen, or pass in front? This 
example didn't POKE anything into the Priority register, so 
the defaults were used. Here are the options for the 
priority regIster : 
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PRIOR (623) 


ADD 


For overlapping areas of Players 

+o have a third color.. 

For all 4 Missiles to have the color 

In location 711(PI ayfIeId 3).. 


ADD ONLY ONE FROM THE FOLLOWING LIST 


Pl-0, PF1, PO to P3, PF2, PF3, BACKGROUND.8 

PFO to PF3, PO to P-3, BACKGROUND. 4 

PO & PI, PFO to PF3, P2 & P3, BACKGROUND.2 

PO to P3, PFO to PF3, BACKGROUND. 1 


To use this location. Just add up the options and POKE the 
TOTAL NUMBER Into 623. You can only choose one set of 
priorities, so either choose 8, 4, 2, or 1. 

A 5TH PLAYER? 

Remember In example 5.5, the Color Utility, how you 
could press SELECT and have all the Missiles come together 
Into a single Player? This Is how It was done. I POKEd 623 
wltn 17 for both the priority I wanted and to change the 
colors (lines 1000 to 1050). Then I simply moved their X 
locations next to each other. Remember that Missiles are 
only 2 pixels wide each. You can use them together Just like 
a regular Player. The mathematics to keep track of them will 
be a little harder, that's all. 

1 <£» PIXEL WIDE PLAYERS 
EXAMPLE 5.13 

You now know that you have at least 128 pixels In the Y 
direction to work with. For Single line resolution you have 
256. But so far we have been hindered by only 8 pixels of 
width. The answer Is obvious, but I'll mention It anyway. 
Just position two Players near each other so they match up! 

You can write some simple math to always keep them 8 apart 
In the X direction. Look at example 5.13 to see an ATARI 
logo made this way. 
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EXAMPLE 5.14 

(32K required) 


Just In case you have gotten to this point In the 
Tutorial, and feel you haven't gotten your money's worth, 
example 5.14, the last program. Is an Editor to create and 
change your Player shapes. I hope you like It! Here Is how 
to use It: 

1) When the program starts. It will ask If you want to 
load In old data, or create new shapes. Choose NEW. 

2) Then Press the SELECT button. The message "Player # 
to edit" will appear. Pick any number from 0 to 4. 
Player 4 Is made up of the Missiles. 

3) A flashing cursor will appear In the editing box on 
the left. Press D to draw and move the cursor with the 
four cursor control keys ( the CTRL is not needed). 

4) To stop drawing, press E (erase). Move the cursor to 
the next spot you want to draw. 

5) While continuing to edit the shape, press START to 
see the Player's shape updated. The Player will appear 
next to It's number. 

6) You may also move the Player you are currently 
editing anywhere on the screen by using a Joystick In 
Port 1 . 

7) You can change the size of the Player being edited 
(except #4), by pressing SELECT and choosing 0, 1, or 3 
for normal, double, or quadruple size. 

8) Press OPTION to edit a different Player. 

9) Press S to save the shapes you have made to tape or 
disk. 

10) Press L to load any saved Players back In. Disk 
users will find a set of Players on the disk already. 
Remember when you load In a set of Players you won't 
see them until you press OPTION and request each one! 

This Editor should allow you to quickly create Players 
for any purpose. Write to us with suggestions on 
Improvements and I will Incorporate your Ideas In later 
versions of this program. The code for this also Is a great 
Tutorial on handling Players by using strings to store them 
In. Advanced users should study It. 

#*###*##*##*#*##**########*#####*### 


At this point let me see If there are any loose Ideas 
that need to be covered. First, let's go way back to the 
game In example 5.2. You have learned all of the technical 
aspects of writing a game using PMG. I want to discuss the 
structuring of a game. This means what goes where In the 
program coae. You should be able to figure out the rest, but 
If I've missed anything, please write. 
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NOTE: 


Because of the special characters in this program, the 
listing be l ngreferred to will be found a few pages on In the 
listings section of the manual. 


/%lOS A 
[ SPECIAL. 
CHARACTER. 



Lines 40 to 60 set the colors. Line 70 points to a 
subroutine to draw the Playflelds. Always do this toward the 
end of your program so that the main loop will run more 
quickly. The Playfleld In this case consists of Just 
plotting a lot of data. This Is similar to the earlier 
discussion on Playflelds. 


Line 80 tells you that the program hasn't stopped, but 
Is just setting up Itself. This Is always a nice touch. 


Line 110 Is tricky. It's another machine language 
subroutine! But this one is far more useful than the 
earlier one. Here I set up four starting locations that are 
in a safe area of memory, right between PMBASE and 
PMBASEt768 where the Missile data starts. Since line 20 
clears this whole area out, we know It Is safe and 
available. You'll see what goes there In a moment. 


Now, In lines 130 to 310, I POKE In the data for two 
shapes for the Pacman(tm) and two for the Squiglly Monster. 
These start at convenient Increments so I can find the 
shapes later. 

Line 330 Is the machine code which Is stored In a string. 
You may copy this line out for other programs along with 
it's dimension statement In line 50 and It's USR call. 


Lines 380 to 440 do the normal math that Is needed to 
keep track of X and Y for TWO joysticks. 

Lines 450 to 480 are the neat part. First let me tell you 
what the machine language can do for you. The routine Is a 
memory move routine. It takes the values In the memory 
locations you tell It, and moves them to any other location. 
You can use it to move and entire screen of data Instantly! 

I use It to change the shape that Is In the area where the 
data for the two Players Is stored. These lines simply tell 
the computer... 

Ltne 450: "Move the Pacman(tm) data from the location 
called shape2 to the Player 0 area using 20 bytes of data" 
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Line 460:"Same thing, but move Squiggly data to Player 1 
area" 


Line 470:"Move a different Pacman(tm) shape to the 
Player 0 area" 

Line 480:"Move a different Squiggly shape to the Player 
1 area. 

All of the moves above also take care of movement up or 
down the screen at the same time with the addition of the Y 
coordinate you want In the "move data to" location. This 
rouTine will move all 5 Players and/or the Missiles very 
quickly. The earlier- machine language routine only moved 
Player 0. 

Lines 490 to 570 take care of all the Collisions that we 
might be Interested In, and each branches to a subroutine or 
makes some change on the same line. 

The scoring and sounds are straight forward.... Make a 
sound... Increment a score ...change a color. ALL of these 
depend on your Imagination, i.e., what do you want to happen 
In the game? 

Here are the lines to use for the second machine language 
rout Ine. 


50 DIM A$(100) 



450 D=USR (ADR (A$), From Address, To Address, # of bytes to move) 


Even though I did not emphasize the use of Missiles very 
much, I hope you realize that they are handled just like 
Players except .they are two bits wide. A good example of 
moving them Is In example 5.1, lines 640 to 710. 

Your main limits are having only two pixels of width, and 
the Missile data areas all In the same stripe. This means 
you must POKE 0's Into the data area for Missiles you don't 
want to show on the screen, or just move them off screen 
wlTh the horizontal position registers. 

I left a few strange things in the programs In terms of 
colors, sizes, and moving shapes off screen when not In use. 
If you are going to understand PMG, I suggest you now take 
any of my examples and start to clean up little details to 
be more to your liking. That will be your final exam... 

WILL YOU PASS? 

Scores will be mailed out on Friday. BYE!I ! 
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24.® ft = PEEKU063-16iPOKE 54279 , ft : POKE 204,fl + 4:POKE 283,e:PMBfl 
SE=fl*256 

250 POKE 55277, 3 8 POKE 784,48:POKE 53246,iSO : POKE 285,i20;P0K 

E 53258,0 

250 FOR I=PMBfl5E+1024 TO PHBA5E+1280!POKE 1,0:NEKT X 

2 7' 0 R E 5 T O RE 29 0 

2®0 FOR I = PMBfl5E + U55 TO PMBfiSE + 1289 : REPO IB 2 POKE 1,B:HEKT I 

290 DOT A 8 , 8 , 60 , 00 , 126,126 195 , 195 126,126 , 00 „ 68,24,24, X26 , .1. 

26,165,165 

300 RATA 129 , 129,98,190 , 90,98,66,66,36 ,, 36,36,36,24,24 , 24,24,2 
4 „ 2 4,2 4 , 2 4 

3X0 DATA 60,6©,12©,126,255,255,126„126,60,60,24,24,0,6,0,0,0 


320 POKE 559,62 
330 REM 

340 R E M WHHHWMfllM LOOP 
350 REM 


3©0 XF 5TRIG CO3 =O THEM 605UB 28:FLAG = 0 
370 5T= STICK £03 s S = PEEK (53279J 

3 8 0 X IF 5 = 5 T H E H G O 5 U B 6 7 O 

390 X IF 5 = 3 THEM POKE 764,12 SPOKE 5 3 2 5 6 , O s R BJ M "D 8 EK5. 7“ 

4O0 A = USR CADR CE $ 3,5TXCK t03 3 : GOTO 360 

4X0 GRAPHICS 17'; POKE 7X2,148 

420 7 **©} ” THIS NEKT EHflHPLE 

430 7 #*©.?” SHOWS YOU THE 

4 40 7 **©; “OIFFEREMCE BET WE EM A“* 

450 7 **6 .? "NORMALLY DRAWM SHAPE” 

460 7 »6;"AND A PLAVER....use ” 

470 7 »6;"VOUR joystick TO SEE” 

480 7 tt© ..WHICH XS THE ITIMIPXrD » ” 

490 FOR X = X TO 3888 : HEK T X ; GOT O 2 X 0 
S0O REM WKKK-M pLO T SHOPE MHMHNHNH4W 

5 X O COL OR A 

520 D = D + CST--63 + CST = 7J + CST = S3 - CST = 93 - C5T = 103 - (ST = 11) 

53 0 E = E +CST = A3J + C5T = 93 + tST = 53 - tST = 63 - tST = AO3 -13T = A43 


5 4O R ESTORE 3 7 0 

50 0 FOR N = A TO 188 ; READ H 8 RE AID¬ 
S' 6 O X IF H = O A M D V = 0 T HEM X A. 0 

5 7 0 PIL. O T K + E> , V + E S M E K T M 

580 IF FLAG = O THEM COLOR 0 :GOTO 

5 9 0 RE T URM 

60O FOR K = A TO 8 I! FOR V = 0 TO 25 S 

6A 0 RE TURN 

© 2 O D A T A 5,0,3 , A „ 4- , X , 5 , X , 6 , X , 2 , 
, 7 , 3 , 8 , 3 , 2 , 4 , 3 , 4 . , 4 , 4 , 5 , - 4 , 6 , 4 , 7 , 
© 3 0 D A T A 4,6,5,6,2, 7 ,3 „ 7 ,4, 7 ,5 , 
,8,9,2 , X. O , 4. , A 0,5,10 ,7 , A 0,2,11,4 

6 4 0 O A T A 2 , A 2 ,7 , A 2,3 , A 3 „ 6 , A 3,3 , 

, A. 7 ,5,1 7,4 , X 8,5,18,3 , X 9 „ 4 , X 9,5 , 

6 S 0 DAT A 2,2 0 , 3,2 0,4,20,5,2 0,6, 
, 21,6,2X, 7 ,2X, 8,21,2,22,3,2 2,4, 
6 6 O D A T A 3 „ 2 3,4,2 3,5,2 3,6,2 3,4 , 
6 7 0 R IE M NNKItM SIZ E 5 MMHMM 

6 0 0 7 I! 7 8 7 ” P R E S S O , X. , O R 3 IF 


P L O 


2 2 , 
2 4 , 


T K + D 
, 2,4 , 


, 6 4 , 

, 7, 7 , 



7.2 0 , 
5,22, 

5 . 2 4 , 

SIZE” 


DiiaDOail = NEKT EK . ” 

©9 0 POKE 7 64,2 5 5 

700 PK=PEEK(7643 
7 A. O X F P K = 50 T H IE M IP O K E 

720 XF PK=31 THEM POKE 

730 IF PK=26 THEM POKE 

7 4 0 G O T O 7 0 0 


53256,O:RETURN 
53256 A :RETURM 
5 32 56,3 8 R ET UR M 


, V + IE 8 N E H T V 

2,5,2,6,2 „ 7 
5,5,5, ©, 5 

7 , X , 8 , 3,8 , © 
, 7 , X X 

4 , X 5,5 , X 5,4 

X, 2 X, 2,21,3 
©,22,7,22 

0 , 0 , 0,0 

8 7 : 


M E K T K 

2 , X. , 3,2 3 

8,8,8 , A , 9 
A 6 „ 5 , A 6,4 
2 X , 4,2 A , 5 


SIZES 
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190 GOTO ISO 
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200 REM 

2X0 REM SINGLE LIME RESOLUTION M - M - M M-M- M n M - 
220 REM 

2IO RESTORE 2S0:CNT=O 

2 4 0 FOR I = PMBASE + ifl2«l + V TO R MB A5E+1280 

250 READ B:IF B = 0 THEM 300 

200 CMT=CNT+1 
220 POKE I,B 

280 M E K T I 

2SO DATA 124,214,214,254,124,68,68,204,8,0,0 

3 O O R E M 

3X0 REM DOUBLE LIME RESOLUTION M- KKKKK 
320 REM 

330 RESTORE 2S0:CMT=0 
340 FOR I=PMBASE+5X2+V 
350 READ B:IF B = 0 THEM 

350 CMT=CMT+X 
320 ROME I„B 

3 5 0 M E K T I 

3SO GOTO XSO 


4 REM EK5.13 

5 REM CCS 1982 BV SAMTA 
ER) 

XO FOR I = X TO 8:POKE 53 
20 FOR I = PMBA8E-H024 TO 
30 REM «**»»RLAYER SETU 
40 GRAPHICS 2:POKE 7X0, 

POKE 559,62 

50 A = PEEK (106) -24 !POKE 
E=A*256 

0.0 POKE 53222,3:K=XSOSP 
5 0 

20 GOSUB 20 
SO RESTORE XXOsY-iSO 
SO FOR I=PMBA8E+X024+V 
K E I , IB : M E K T I 
X O O REM ***** DATA FOR 
XXO DATA 2,2,2,2,2,2,2, 

120 RESTORE XSO 
130 FOR I=PMBASE+1536+Y 
0KE I,B:NEXT I 
X 4 O REM N U KK I C DATA FOR 
XSO DATA 160,160,160,16 
,135,0,0,0 
150 POKE 559,62 
155 2 ■■ 16 BIT WIDE SHAPE"" 

162 POKE 252,1 

X58 2 "" < = = = = USE JOYSTICK = === = >•> 

120 REM 

XSO REM »e****»MAIN LOOP 
XSO REM 

200 IF STRIGC0J=O THEM GOSUB 20:FLAG=0 
2X0 ST—STICK(0)lS=PEEKt53279) 

220 IF S = 3 THEM POKE 764,12iRUN ""D t EK5.14" 

2 2 5 K = K+tST = 2)-tST = XXJ : POKE: 5324S , K ; POKE 53250,. K + S 
2 3 0 GOTO 20 O 
240 GRAPHICS 12 
2SO 2 ttS 
250 2 ttS 

220 2 »6 
280 2 »6 
290 2 tt6 

300 2 »6 

3X0 2 H6 

320 FOR 1=1 TO 3000:NEKT I:GOTO 40 


1 DO YOU WANT MORE 
'COMPLICATED SHAPES2 


'EDXiUUEiilS 



CRUZ EDUCATIONAL SOFTWARE(ROBIN SHER 

242+1 , O : NEXT I : GOTO 240 
PMBA5E+X292:POKE I.OiNEXT I:RETURN 

O;POKE 7X2,0:POKE 704,41:P0KE 205,41: 

54229, A : POKE 2 O 4 , A4 : POKE 2O3,0:PMBAS 

OKE 205,120 SPOKE 53256, OS POKE 53250,1 


PMBASE+1209:READ BSIF B<>0 THEM PO 


FIRST HALF M-WH* 

2,2,4,4,4,8,112,C 


TO PMBASE + X792:READ B : IF BOO THEM P 
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TRICKY TUTORIAL #6 
SOUND 







Ed Lie t i onal Sof tware 
presents 

Tricky T Lit or - i eil ( t m ) 
SOUNDS 

by JERRY WHITE 


This program starts with the simple sound 
statement, but progresses to chords, complete 
songs and special effects. It also 
demonstrates the use of direct pokes to the 
computers built in four channel frequency 
controls. All of the material can be used by 
a beginner, yet if it is studied. you will 
learn many of the tricks that Jerry White 
puts into his other musical programs for the 
ATARI(Name That Song, Player Piano, My First 
Alphabet’s tunes). MUSIC FROM BASIC BECOMES 
ALMOST EASY! 

This program requires 16k for tape users 
or 24k for disk, and a basic cartridge. 


Educational Software inc. 
4565 Cherryvale 
SoqueI, CA 95073 
(408) 476-4901 



SOUND TUTORIAL 


NOTES= 


This tutorial is different than the previous five in this series. 
Like the others, it makes a complicated subject usable for the average 
ATARI owner. Also, most people feel it is an exceliant value for the 
price. However, the format is quite different in that the program is 
really self documenting. Also, this is the first tutorial written by 
someone other than myself. Both of these changes are for the better, 
so I hope past purchasers of TRICKY TUTORIALS like this one to. 

I suggest you learn the program by first running(and playing with) 
all seven parts. Then, when you find a specific area that you want to 
understand better, go to that program and load it into your memory. 
Tape users should write down the starting number of each program. Now, 
try looking at the program code itself to see what Jerry has done. 
Think of a way you would like to modify the program, and go at it! For 
example, the song in part three,"DOE RAY ME", could be changed by 
modifing the data statements. For your use, this part is reprinted on 
the next page. 

Following that page you will find a chart of the notes and pitches 
available for the basic sound statement. Then comes the program for 
the special sound effects. You can either retype these in to your own 
programs as needed, modify them for new effects, or just resave them 
by themselves. Note that each little effect is not quite complete by 
itself, but needs the variables VO—V3 defined . Finally, Jerry’s 
special gift to us is part seven for which both the listings and 
instructions are included. 

For an interesting effect take out the remark in line 74 of parts 
1,2, & 4. Most people I showed this to didn’t like the sound 
associated with each letter being put on the screen. You may, or 
perhaps you might change the pitch values in the sound statement in 74 
to get your own unique effect. 

It’s up to you to experiment with sound. This program is the 
foundation. Write and let us know what you think of it. 

Educational Software Inc. 

4565 CherryvaIe 
Soquel, CA 95073 
(408) 476-4901 

BYE , 

Robin Sherer 



SOUND - Z 


DocLAmentat i C3n 


While many of the programs in this package display 
documentation, SOUND-3 may require the printed type- This 
program plays a song and displays sing along words on the 
screen. If you understand this program, and you can read 
sheet music, you may wish to write you own BASIC songs. 

If you don't know how to read sheet music, you might 
get by if you have a good ear and use the old trial and 
error method. If you don’t have either, and you can’t 
sing, then just listen. 

You will need some knowledge of music to write music. 
I will have to assume that you understand the following 
musical terms: NOTE or PITCH, CHORD, SHARP, and FLAT. If 
you’re lost already, the rest of this program 
documentation won’t help you. Let us know if you’d like a 
tutorial on reading music and describing the previously 
mentioned musical terms. 

Let’s walk through the SOUND.3 program listing. We 
begin by DIMensioning a string called LINES and an array 
called "N" which will store 50 pitches. These pitches 
will correspond to musical notes. LINES will store one 
line of words in our song. We then set V0=0 (Voice 0), 
Vl=l (VOICE 1), etc., then GOTO 100. 

Why the heck did he GOTO a line of DATA? I actually 
should have gone to line 120, but ATARI BASIC will bail me 
out a just fall through to line 120, which sends us off to 
a subroutine at line 21000. That routine just clears the 
screen, displays the heading, POKEs location 77 with a 
zero, and returns. In case you don’t know what that POKE 
does, it temporarily defeats ATARI’S automatic color 
changing routine which is also known as attract mode. 

RETURN!nq to line 120, we read data for 50 notes into 
the N (NOTE) array. Then I TRAPped to line 19000 which 
makes no sense at all since there is no line 19000 in this 
program. If you decide to make modifications to this 
program, get rid of that useless TRAP. By the way, the 
reason I got away with it was only because there are no 
other errors in this program. The POKE 82,8 indents the 
left margin. 

Before we start reading more data at line 210, it is 
important to understand the use of the "N" array and the 
subroutines found from line 30 through line 74. 

Look at the DISTORTION LEVEL 10 PITCH CHART. The 
first note is quite logically numbered 1. It’s 
corresponding PITCH is 14 and the musical note is C. This 
is a very high sound. The higher the sound, the lower the 
NOTE # and PITCH value. In our "N" array, N<1) contains a 



14. The DATA in lines 100 and 110 correspond to the 
F'lTCHes on the CHART. 

Why use NOTE numbers in an array when ATARI supplies 
PITCH values in their BASIC REFERENCE manual? I’m glad 
you asked. Start reading the PITCH numbers on the PITCH 
chart until you get to the number 21. What happened to 
20? If you look -further down the chart, you'11 notice an 
increasing number of missing numbers. Now look down the 
column o-f NOTE # ? s. You will -find 50 consecutive numbers. 
This provides us with a quick and easy way to let BASIC 
calculate chords when we supply only the base note of the 
desired chord. 

The subroutine beginning at line 40 is our chord 
calculator. You need only supply it with the NOTE # in 
the variable "P". The routine assumes that P will be at 
least 8 and not greater than 50. It then sets P0 (PITCH 
0) equal to N(P). Then it calculates our chord and stores 
the pitches in PI, P2, and P3. In line 42, we turn on all 
4 voices. Notice that voice 0 is set at a greater volume, 
and the three notes of our chord are played at a lower 
volume but equal to each other. 

In line 50 we get to our WAIT routine. We POKE the 
value stored in the variable WAIT into location 540. This 
location counts backwards to zero at the rate of 60 per 
second (JIFFIES). We just waste time at line 52 until the 
countdown is completed. Then we turn off VOICE 0 ONLY and 
RETURN. 

So what did all this accomplish? In plain English, 
we played a melody note along with a chord, then turned 
off the melody note. The chord continues to play. The 
subroutine at line 60 is used to turn off ALL voices. 

The subroutine at line 30 will change only the melody 
pitch, then go on to the WAIT routine. 

The subroutine at line 70 turns on all four voices at 
equal volume, then decreases the volume gradually, until 
all sounds are off. 

Now, where were we??? Ah yes, line 210 where we read 
LINE*,CHORD,P,WAIT:PRINT LINE*:and go off to the 
subroutine beginning at line 40. We are reading the DATA 
which begins at line 1000. We read the words, "DOE A DEER 
A FEMALE DEER" into a string then put it on the screen. 
We also read the number 49 into the variable CHORD, 37 
into the variable P, and 45 into the variable WAIT. 

Remember, we G0SUB 40 to play a melody note, 
calculate our chord, play the chord, and kill some time. 
The best way to learn from examining someone elses 
program, is by acting as if you were the computer. Follow 
the instructions, and see what you, or the computer, will 



Let's try it 


I'll be the computer this time. I have .just read the 
data as I was instructed to do in line 210, and now I'm at 
the subroutine at line 40. I am told to make P0=N(P). I 
just read DATA and set the value of P=37. I look up the 
value o-f N<37) and see that it is 121. I set P0=121. 

My next instruction is to make P1=N(CHDRD). I read 
the value o-f CHORD in line 210 and know that CH0RD=49« I 
lookup the value o-f N(49) which is 243, and set Pl=243. 
P2 must be set to the value stored in N<45> and P3 must be 
set to the value stored in N<42). P2=193 and F'3=162. 

I turn on all -four voices as indicated in line 42 
then POKE the number 45 into my memory location 540. At 
line 52 I look at the value stored in memory location 540 
and compare it to 0. It's not 0 so I check it again. 
Each time I check that location, it's value is less than 
it was the last time I looked, but it's not zero so I keep 
checking. I'm getting bored. 

Finally I -find a zero and go on to line 54. I turn 
off the sound of Voice 0 then RETURN from this subroutine 
to line 220. 

Now it's your turn. Continue through the program 
doing what I just did. If you start getting confused, 
take a pencil and write down values as you read and change 
them. You should soon understand what I've put your 
computer through, to play this simple song. 

The logic in this program is not suitable for all 
songs. You will have to make minor modifications for 
different tempos, or if other than standard Major chords 
are required. This program demonstrates one way to play a 
simple song and an eaxsy method of finding the notes of ax 
chord. Don’t think you can just add a few lines of DATA 
and create the Nutcracker Suite. 


If you just want 
sheet, music form while 


MUSIC COMPOSER, 
would be played 
were a piano, 
PIANO package, 
pi aver. 


o enter the music, 
it is played, I'd 


then see it i 
"ecommend ATARI’ 


If you'd like to see your melody as it 
tn a piano, or play your keyboard as if it. 
:onsider the SANTA CRUZ SOFTWARE PLAYER 
! know the author, he used to be a piano 



SOUND.3 (c) 


1981 by Jerry White 


10 

DIM LINE*(40),N(50): 




V0=0: 


? LINE*: 


Vl=l: 


GOSUB 40 


V2=2: 

240 

FOR ME=i TO 6: 


V3=3: 


READ P,WAIT: 


GOTO 100 


GOSUB 30: 

30 

SOUND VO,NIP),10,14: 


NEXT ME: 


GOTO 50 


GOSUB 60: 

40 

PO=N(P): 


WAIT=30: 


Pi=N(CHORD): 


GOSUB 50 


P2=N(CHORD-4): 

250 

READ LINE*.CHORD,P,WAIT 


P3=N(CHDRD-7) 


? • 

42 

SOUND VO,PO, 10,14: 


7 LINE*: 


SOUND VI,PI,10,6: 


GOSUB 40 


SOUND V2,P2,10,6: 

260 

FOR ME=1 TO 6: 


SOUND V3,P3,10,6 


READ P,WAIT: 

50 

POKE 540,WAIT 


GOSUB 30: 

52 

IF PEEK(540)00 THEN 52 


NEXT ME: 

54 

SOUND VO,0,0,0: 


GOSUB 60^ 


RETURN 


WAIT=10: 

60 

FOR 0FF=0 TO 3: 


GOSUB 50 


SOUND OFF,0,0,0: 

270 

READ LINE*,CHORD,?,WAIT: 


NEXT OFF: 


7 • 


RETURN 


? LINE*: 

70 

PO=N(P): 


GOSUB 40 


P1=N(CHORD): 

280 

FOR ME=1 TO 6: 


P2=N(CHORD-4): 


READ P,WAIT: 


P3=N(CHORD-7) 


GOSUB 30: 

72 

FOR DECAY=B TO 0 STEP -1: 


NEXT ME: 


SOUND VO,PO,10,DECAY: 


GOSUB 60: 


SOUND VI,PI, 10,DECAY: 


WAIT=30: 


SOUND V2,P2,10,DECAY: 


GOSUB 50 


SOUND V3,P3,10,DECAY 

290 

READ LINE*,CHORD,?,WAIT: 

74 

NEXT DECAY: 


? . 


RETURN 


? LINE*: 

100 

DATA 14,15,16,17,IB,19,21,22,23,24,26,27,29,31,33, 


GOSUB 40 


5,37,40,42,45,47,50,53,57,60,64,68,72,76,81,85,91,96 

110 DATA 102,108,114,121,128,136,144, 

153,162,173,1B2,193,204,217,230,243,255 
120 GOSUB 21000: 


FOR X=1 TO 50: 
READ IT: 

N(X)=IT: 
NEXT X 
TRAP 19000: 
POKE 82,8: 


READ LINE*,CHORD,P,WAIT: 
? LINE*: 

GOSUB 40 
FOR ME=1 TO 6: 

READ P,WAIT: 

60SUB 30: 

NEXT ME: 

GOSUB 60: 

WAIT=10: 

GOSUB 50 

READ LINE*,CHORD,P,WAIT: 


FOR ME=1 TO 5: 

READ P,WAIT: 

GOSUB 30: 

NEXT ME 

READ CHORD,P,WAIT: 

GOSUB 40: 

GOSUB 60: 

WAIT=30: 

GOSUB 50 

READ LINE*,CHORD,P,WAIT: 
? : 

? LINE*: 

GOSUB 40 
FOR HE=1 TO 5: 

READ P,WAIT: 

GOSUB 30: 

NEXT ME 

READ CHORD,?,WAIT: 

GOSUB 40: 

GOSUB 60: 

WAIT=30: 

GOSUB 50 

READ LINE*,CHORD,P,WAIT: 





360 


? LINE*: 

GOSUB 40 
FOR ME=1 TO 5: 

READ F,WAIT: 

GOSUB 30: 

NEXT HE 
370 READ CHORD,P,WAIT: 

GOSUB 40: 

GOSUB 60: 

WAIT=10: 

GOSUB 50 

380 READ LINE!,CHORD,P,WAIT: 

? • 

? LINE*: 

GOSUB 40 

ISO READ P,WAIT: 

GOSUB 30 

400 READ CHORD,P,WAIT: 

GOSUB 40 

410 READ P,WAIT: 

GOSUB 30 

420 READ CHORD,P,WAIT: 

GOSUB 40 

430 READ P,WAIT: 

GOSUB 30 

440 READ CHORD,P,WAIT: 

GOSUB 40 
450 GOSUB 60: 

WAIT=10: 

GOSUB 50: 

FOR DECAY=15 TO 0 STEP -0.5: 

SOUND VO,Nil),10,DECAY: 
NEXT DECAY 
460 GRAPHICS 18: 

? 16: 

? #6;“ major chords' 

510 FOR HE=i TO 8: 

READ CHORD,P,LINE*: 
POSITION MEI2,10-HE: 

? #6;LINE*: 

GOSUB 70: 

NEXT HE 

530 FOR HE=8 TO 1 STEP -1: 

READ CHORD,P,LINE*: 
POSITION HE*2,10-HE: 

? #6;LINEt: 

GOSUB 70: 

NEXT HE 
540 WAIT=15: 

GOSUB 50: 

POSITION 4,11: 

? #6;“PRESS" 

550 FOR DECAY-15 TO 0 STEF -0.5: 

SOUND VO,N<6),10,DECAY: 
NEXT DECAY 
560 WAIT=15: 

GOSUB 50: 

POSITION 10,11: 

? #6;"START" 


570 FOR DECAY-15 TO 0 STEP -0.5: 

SOUND VO,N(li,10,DECAY: 

NEXT DECAY 

600 SETCOLOR 0,PEEK(20),10: 

IF PEEK(53279 ) 06 THEN 600 
700 GRAPHICS 18: 

SETCOLOR 0,1,10: 

SETCOLOR 1,11,12; 

SETCOLOR 3,4,12 
710 ? 16: 

? 16: 

? #6; M PRESS option 1 : 

? 16;" TO RERUN" 

720 WAIT=60: 

GOSUB 50 
730 ? #6: 

? 16;“ PRESS start": 

? 16;“ TO CONTINUE" 

740 IF PEEK(53279>=3 THEN 

RUN 

750 IF PEEK(53279)=6 THEN 900 

760 GOTO 740 

900 RUN ,: D:SOUND. 4“ 

1000 DATA DOE A DEER A FEHALE DEER 

1010 DATA 49,37,45,35,15,33,45,37,15,33,30,37,30,33,45 

1020 DATA RAY A DROP OF GOLDEN SUN 

1030 DATA 42,35,45,33,15,32,15,32,15,33,15,35,15,32,90 

1040 DATA HE A NAHE I CALL MYSELF 

1050 DATA 49,33,45,32,15,30,45,33,15,30,30,33,30,30,45 

1060 DATA FA’ A LONG LONG WAY TQ RUN 

1070 DATA 44,32,45,30,15,28,15,28,i5.30,15,32,15,28,90 

1080 DATA SEW A NEEDLE PULLING THREAD 

1090 DATA 49,30,45,37,15,35,15,33,15,32,15,30,15,44,28,90 

1100 DATA LA A NOTE TO FOLLOW SEW 
1110 DATA 44,28,45,35,15,33,15,31,15,30,15,28,15,42,26,90 

1120 DATA TEA A DRINK WITH JAH AND BREAD 

1130 DATA 42,26,45,33,15,31,15,29,15,28,15,26,15,49,25,90 

1140 DATA THAT WILL BRING US BACK TO DOE 

1150 DATA 49,25,15,26,15 

1160 DATA 44,28,30,32,30 

1170 DATA 42,26,30,30,30 

1180 DATA 49,25,90 

1200 DATA 49,37,C 

1210 DATA 47,35,D 

1220 DATA 45,33,E 

1230 DATA 44,32,F 

1240 DATA 42,30,G 

1250 DATA 40,28,A 

1260 DATA 38,26,8 

1270 DATA 37,25,C 

1300 DATA 37,25,c 

1310 DATA 38,26,b 

1320 DATA 40,28,a 

1330 DATA 42,30,g 

1340 DATA 44,32,t 

1350 DATA 45,33,e 

1360 DATA 47,35,d 

1370 DATA 49,37,c 

21000 GRAPHICS 0: 


SETCOLOR 2,9,0: 

SETCOLOR 4,9,0: 

SETCOLOR 1,9,12: 

POKE 752,1: 

POKE 82,2: 

POKE 83,39: 

POKE 201,7 
21010 ? * ": 

? ,“QRRRRRRRRRRRRRRE 

21020 ? ,“! HAJOR CHORD HARHONY !“ 

21030 ? ,“ZRRRRRRRRRRRRRRC 

21040 POKE 77,0: 

RETURN 



n> i s r o re t i o m i_ ee v iez l_. 


C# or Db 



SOUND. 6 BASIC SOUND EFFECTS BY JERRY WHITE PAGE 1 


0 REN SOUND.6 (c) 1981 by Jerry Nhite 11/9/81 

10 V0=0:V1=1sV2=2sV3=3:POKE B2,2:P0KE 83,39:G0TQ 2000 

50 POKE 540,WAIT 

52 IF PEEK (540)00 THEN 52 

54 FOR QFF=0 TO 3:S0UND 0FF,0,0,0:NEXT OFF:RETURN 

89 REN 

90 REN U» NACHINE GUN ttt 

91 REN 

100 FOR SH0T=1 TO 12:F0R V0L=15 TO 0 STEP -5:S0UND VO,80,0,VOL:SOUND VI,60,0,VOL 
110 SOUND V2,200,4,VOL:SOUND V3,10,4,VOL:NEXT VOL:GOSUB 54:NEXT SHOT 
120 RETURN 

189 REN 

190 REN ttt SURF/NAVES tit 

191 REN 

200 FOR P0=10 TO 2 STEP -0.02:V0L=P0/2:SOUND V0,P0,8,VQL:S0UND V1,P0+1,8,VQL 
210 SOUND V2,PO+2,8,VOL:SOUND V3,RND(0)t3,8,V0L 

220 FOR P0=3 TO 12 STEP 0.02:V0L=P0/2:S0UND VO,PO,8,VOL:SOUND VI,P0+1,8,VOL 
230 SOUND V2,PO+2,8,VOL:SOUND V3,RND(0)t3,8,V0L:NEXT PO 
240 FOR P0=10 TO 2 STEP -0.02: V0L=P0/2: SOUND VO, PO, 8, VOL-.SOUND VI ,PO+i, 8, VOL 
250 SOUND V2,PO+2,8,VOL:SOUND V3,RND(0)t3,8,VOL:NEXT P0:60SUB 54:RETURN 

289 REN 

290 REN ttt LAZERS/PHOTONS ttt 

291 REN 

300 FOR SH0T=1 TO 6:FOR P0=0 TO 200 STEP 10 

310 SOUND VO,PO,0,8:SOUND Vi,PO,10,8:SOUND V2,P0,12,8:S0UND V3,P0,4,8 

320 NEXT PO:NEXT SH0T:60SUB 54:RETURN 

389 REN 

390 REN ttt POLICE/FIRE SIREN ttt 

391 REN 

400 FOR P0=200 TO 50 STEP -IsSOUND VO,PO,10,8:SOUND V1,PO+2,10,6:SOUND V2,P0+4,10,2:SOUND V3,P0+6,10,2:NEXT PO 
420 FOR P0=50 TO 160 STEP 0.2:S0UND V0,P0,10,8:S0UND V1,P0+2,10,6:S0UND V2,P0+4,10,4:S0UND V3,P0+6,10,2:NEXT PO 
430 GOSUB 54:RETURN 

489 REN 

490 REN ttt AIR RAID SIREN ttt 

491 REN 

500 FOR L0QP=1 TO 6:F0R P0=1 TO 20:S0UND V0,80+P0,12,8:NEXT PO 
510 SOUND VO,80,10,12:S0UND VI,100,10,12:SOUND V2,13,4,12 
520 WAIT=30:60SUB 50:NEXT LOOP 

530 FOR V=12 TO 0 STEP -0.1:SOUND VO,<20-V)110,10,V:SOUND VI,(20-V)110+20,10,V:SOUND V2,13,4,V:NEXT V 
540 GOSUB 54:RETURN 

589 REN 

590 REN ttt TELEPHONE RIN6IN6 ttt 

591 REN 

600 FOR RING=1 TO 2:FQR L0UD=1 TO 35:S0UND V0,20,10,8:SOUND VI, 1,2,8 

610 FOR LQ0P=1 TO 2:S0UND V0,25,10,8:SQUND V1,0,2,8:NEXT LOOP:SOUND V0,0,0,0:S0UND V1,0,0,0:NEXT LOUD 
620 FOR V=7 TO 0 STEP -0.2:S0UND V0,20,10,V:S0UND V1,0,2,V:NEXT V 
630 WAIT=90:GOSUB 50:NEXT RIN6:60SUB 54:RETURN 

689 REN 

690 REN ttt WHISTLING BONB ttt 

691 REN 

700 FOR P0=0 TO 150:S0UND 0,P0,10,P0/15+2:NEXT PO 

710 FOR P0=0 TO 240 STEP 5:V0L=14-P0/20:SOUND VO,P0,0,VOL:SOUND VI,PO,8,VOL 

720 SOUND V2,P0+15,2,VOL:NEXT PO:GOSUB 54:RETURN 

789 REN 

790 REN ttt SPACE SHIP ttt 

791 REN 

800 SOUND V2,0,8,2:F0R V0L=1 TO 15 STEP O.liSOUND VO,25,4,VOL:SOUND VI,13,4,VOL:NEXT VOL 
810 FOR V0L=14 TO 0 STEP -O.l-.SOUND VO,25,4,VOL:SOUND VI, 13,4,VOL:NEXT VOL 
820 60SUB 54:RETURN 
889 REN 



SOUND - 77 


I-f you have run the -first 6 programs in this package, 
you should now have a good background -for using the Atari 
Basic SOUND command. The SOUND.5 program gave you some 
idea of what you can do by quickly changing the values of 
SOUND command variables. The SOUND. 6 program demonstrated 
sound effects and hopefully you are now thinking about 
creating some of your own sound effect routines. 

This machine has truly amazing sound capabilities. 
Believe it or not, the SOUND command is not the best way 
to create sound effects. Using machine language speed is 
one way to get sounds that Basic is just too slow to 
create. But you don’t need machine language to get more 
sounds from this computer. 

Some truly amazing sounds can be created using the 
POKE command. SOUND.7 lets you experiment with POKEs by 
using your joystick plugged into the first port. 

I’ll give you more information on these POKE 
locations later but first let me explain how to use the 
SOUND.7 program. You can read the technical stuff later. 

The numbers 53760 thru 53768 are displayed on the 
screen. A greater than < > ) symbol should appear next to 
the top number. Move that > down to the number 53768 by 
pulling back on the joystick. This is how we select the 
location we wish to POKE. Once the > points to the 
desired location, press the trigger button. The location 
number should turn blue. 

Now push up on the joystick to make the number to be 
poked into location 53768,80. Push up to make the number 
higher and pull down to make the number lower. Once you 
have the number 80 next to the 53768, press the trigger 
button. This will cause the 53768 to go back to it’s 
original yellow color and the > to return to it’s original 
position next to the 53760. 

No sound? Not yet, be patient. Now lets change the 
POKE for location 53760. Since the > is already in 
position, just press the trigger and that top number 
should turn blue. Use your joystick to make the poke 
53760,10, then press the trigger. 

Still no sound? Boy are you impatient. O.K. Move 
the > to location 53761 and press the trigger. Now change 
the poke to that location randomly. SOUND!!! It’s about 
time. Now it’s time to experiment. That location at the 
screen bottom is the key. Try changing it to 83, 85, and 
other numbers between 0 and 255. Then go back and change 
those top two locations. 



What about 53762 thru 53767? Go ahead, do what you 
want. You can't hurt anything but you might drive some 
people crazy if the volume on your TV is too high. 

To exit this program, just press any key on the 
keyboard. This is also a good way to shut off the sounds 
and start over by giving the RUN command. 

Before using these POKE locations in Basic, there are 
two things you must know. The POKEY chip must -first be 
initialized. This is accomplished with a simple SOUND 
0,0,0,0 command and should be done at the beginning o-f 
your program. 


These locations or sound registers are write only. 
For sound, you can POKE into these locations but PEEKing 
will not reflect the value you just poked. Confusing? 
You’ve got that right! The main thing is that you can 
create sounds using experimental POKEs without 
understanding what's happening or why. 


For a detailed more explanation of these registers 
and other SOUND information, I'd strongly suggest you read 
the SOUND chapter in De Re Atari. This book is scheduled 
to be available from APEX. 


LOCATION DESCRIPTION 


53760 

Voi ce 

0 

Frequency 

53761 

Voice 

0 

Control 

53762 

Voice 

1 

Frequency 

53763 

Voice 

1 

Control 

53764 
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SOUND.6 BASIC SOUND EFFECTS BY JERRY WHITE PA6E 2 


890 REN lit SPACE ECHO tit 

891 REH 

900 FOR V0L=15 TO 0 STEP -0.2:FQR P0=0 TO 5:S0UND VO,PO,2,VOL:SOUND V1,P0+1,2,V0L:NEXT PO 
910 FOR P1=V0LI10 TO VOL STEP -10:S0UND VO,PI,10,VOL:SOUND V1,P1+V0L,10,V0L:NEXT PlsNEXT VOL 
920 RETURN 

989 REH 

990 REH ttt DOOR BELL ttt 

991 REH 

1000 FOR V0L=15 TO 0 STEP -0.5:S0UND VO,29,IO,VOL:SOUND V1,30,10,V0L:NEXT VOL 
1010 FOR V0L=15 TO 0 STEP -0.5:S0UND VO,35,10,VOL:SOUND VI,36,10,VOL:NEXT VOL 
1020 RETURN 

1999 STOP 

2000 REH ttt HENU OPTIONS ttt 

2010 GRAPHICS O:SETC0LQR 2,15,0:P0KE 752,1:P0KE 201,10:? 

2020 ? 

2030 ? ,’! SOUND EFFECTS !* 

2040 ? ,"ZPPPPPPPPPPPPPPPP-sPOKE 201,9:? 

2100 ? ,* <1> HACHINE SUN' 

2110 ? ,' <2> SURF NAVES" 

2120 ? ,* <3> LAZER FIRE- 
2130 ? ," <4> POLICE SIREN- 
2140 ? ,- <5> AIR RAID SIREN- 
2150 ? ,' <6> TELEPHONE RINGING- 
2160 ? ,’ <7> NHISTLIN6 BOHB' 

2170 ? ,- <8> SPACE SHIP- 
2180 ? ,* <9> SPACE ECHO- 
2190 ? ,-<10> DOOR BELL- 
2500 ? ,-<ll> RUN LAST PROGRAH- 

3000 POKE 53279,0:? :? ,’ CHOICE*;:TRAP 9000:INPUT CHOICEiTRAP 40000 
3010 CHOICE=INT(CHOICE):IF CH0ICEC1 OR CHQICEM1 THEN 9000 
3020 IF CHOICER! THEN RUN -D:SQUND.7- 


3030 GRAPHICS 0:SETC0L0R 2,CHOICE,0:? :? :? :? :LIST CHOICEtlOO-lO,CHOICE1100*80 
3040 GOSUB CHQICEtlOO:? :? :? - PRESS ANY KEY FOR OPTIONS’;--POKE 764,255 
3050 IF PEEK(764)=255 THEN 3050 
3060 POKE 764,255:60T0 2000 
9000 RUN 






******************************* 

*** SOUND.7 < SOUND EDITOR) *** 

*** (c) 1981 by Jerry White *** 

******************************* 
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GOTO 10000 
POSITION 1,0: 

FOR HE=0 TO 8: 

POSITION 6,ME+2: 

? #6;53760+MEj"= 3 ;NiME);" 
NEXT ME 

? #6;" select location " 
POSITION 5,2: 

? 16;“1" : 

Y=2 

S=STICK(0i: 

IF S=14 AND Y>2 THEN 
POSITION 5,Y: 

? 16;“ “: 

Y=Y-1: 

POSITION 5,Y: 

? 46;CHR$<30>: 

G0SUB 3000 

IF PEEK(764)<>255 THEN 12000 
IF 3=13 AND Y<10 THEN 
POSITION 5,Y: 

? # 6 ;“ “: 

Y=Y+1; 

POSITION 5,Y: 

? 46;CHR*(30): 

GOSUB 3000 

IF STRIG(0)=1 THEN 720 
SC=Y-2 

POSITION 0,11: 

? #6;" release trigger “ 

IF STRIG(0)=0 THEN 1000 
POSITION 5,Y: 

? 46;" " 

P=53760+GC: 

L$=STR*(P): 

FOR ME=1 TO 5: 

IT=A3C(Lt(ME,ME)): 

IT=IT+123: 

L$(ME,ME)=CHR*(IT): 

NEXT ME 
POSITION 6,Ys 
? 46;Lt 
POSITION 0,11: 

? 46;" change poke ” 
S=STICK(0): 

IF S=14 AND N(GC)<255 THEN 
N(GC)=N(GC)+1 

IF PEEK (764) 0255 THEN 12000 
IF 3=13 AND N(60 >0 THEN 
N(GC)=N(GC)-1 
POKE P,N(6C): 

POSITION 12,Y: 

? #6;N(SC);* " 

IF STRIG(0)=1 THEN 2000 
POKE 65,0: 


GOTO 500 

3000 FOR ME=1 TQ 10: 

POKE 53279,0: 

POKE 53279,8: 

NEXT ME: 

RETURN 

10000 GRAPHICS 18: 

DIM N(8),L$(5): 

SOUND 0,0,0,0: 

POKE 710,154: 

POKE 709,204 

10100 ? 46; n SOUND EDITOR": 

: jit,;* tmmuttVi 
POKE 764,255 
11000 FOR ME=0 TO G: 

N(ME)=0: 

NEXT ME: 

CLOSE 41: 

OPEN 41,4,0,"K:“: 

GOTO 500 

12000 GRAPHICS 0: 

LIST : 

? • 

? “END OF SOUND TUTORIAL BY JERRY WHITE. 1 ': 


Educational Software's 
DBPLAY LOTS TRICKY TUTORIAL *1 


c © 


© 


© 


Educational Software's 
HORZ/VERT SCROLL Tricky Tutorial »2 

FOR ATARI" 16K COMPUTER 
Use 'RUH:C' To Load 

























